Ver Mensaje Individual
  #2 (permalink)  
Antiguo 09/06/2011, 12:13
alexg88
 
Fecha de Ingreso: abril-2011
Mensajes: 1.342
Antigüedad: 13 años, 7 meses
Puntos: 344
Respuesta: numeros repetidos

Usa la función Randomize para genera una semilla basada en la hora actual:

Código vb:
Ver original
  1. Private Sub Command2_Click()
  2. Dim a As Integer
  3. Dim i As Integer
  4. i = 0
  5. Randomize()
  6. Do
  7. m = (Int((49 * Rnd) + 1))
  8. If (chk0(m).Value <> vbChecked) Then
  9. chk0(m).Value = vbChecked
  10. chk0(m).BackColor = vbGreen
  11. i = i + 1
  12. End If
  13. Loop Until (i = 6)