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