Private Sub Command1_Click()
'    For k = 0 To ?
        If Option1(k).Value Then
'            n = ?
        End If
    Next k
    Option1(n).Value = False
    n = n + 1
    If n = 4 Then
'        n = ?
    End If
    Option1(n).Value = True
End Sub