muy buenas tengo el siguiente problema, con este codigo de random es que cada vez que reinicio el programa me vuelve los mismos numeros y queria saver si hay alguna forma de cambiar aquello este es el codigo:
Cita: Private Sub Command2_Click()
Dim a As Integer
Dim i As Integer
i = 0
i = 0
Do
m = (Int((49 * Rnd) + 1))
If (chk0(m).Value <> vbChecked) Then
chk0(m).Value = vbChecked
chk0(m).BackColor = vbGreen
i = i + 1
End If
Loop Until (i = 6)
por favor ayuda es super urgente muchas gracias