01/02/2005, 15:20
|
| | | Fecha de Ingreso: noviembre-2004
Mensajes: 43
Antigüedad: 20 años, 5 meses Puntos: 0 | |
PERFECTO ME PARAECE PERO LO NECESITO CON ORDEN NO EMPEZANDO DESDE 1 NO ALEATORIO HASTA 6 DIGITOS PUEDE LLEGAR,, OTRA COSA APECE PERO AL DARLE CLIK AL TEXT Y DEBERIA APARECER AUTOMATICAMENTE...
Private Sub Text15_Change()
Dim Codigo
For i = 1 To 6
Codigo = Codigo & CStr(Int((9 - 1 + 1) * Rnd + 1))
Next i
Text15.Text = Codigo
End Sub |