Ver Mensaje Individual
  #3 (permalink)  
Antiguo 09/06/2011, 12:10
jaml_84
 
Fecha de Ingreso: diciembre-2010
Mensajes: 11
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: funcion con optionbutton

el codigo es este con su funcion

Cita:
Private Sub Command4_Click()

Call numeros(g)
Option2(g).Value = True


' funcion para marcado automatico
Private Sub numeros(m As Integer)
Dim i As Integer
i = 0
m = (Int((3 * Rnd)))
If m = 3 Then
m = 2
End If
el problema es que cuando lo reinicio de vuelde a marcar los mismos optionbutton asi una y otra vez