Cita:
Iniciado por ReViJa 
No se si te entendi bien...
Crea una matriz de textbox llamada txtfecha de 6, otra matriz de txtnum de 6 y un commandbutton.
Código:
Private Sub Command1_Click()
Randomize
x = Int((6 * Rnd) + 1)
Randomize
y = Int((6 * Rnd) + 1)
TxtFecha(0).Text = TxtFecha(x).Text
TxtNum(0).Text = TxtNum(y).Text
End Sub
Con este code cada vez que pulse es cmd cargará el txtfecha(0) y el txtnum(0) con los valores de el txt correspondiente dependiendo del numero aleatorio.
Si te he liado dimelo y te mando un ejemplo.
Un saludo.
ok pana fijate lo probe si funciona execlente pero hay un detalle q cuadno escoje el numero y la fecha no es la misma fecha, porque yo deseo que si si coloco en una caja una fecha y en otra caja que esta al lado el numero deseo que escoja alguna de esas fecha y numero pero que estn al lado, este funciona pero escoje una fecha de arriba con un numero de la caja de abajo me entendes.