option1

Private Sub OptionButton1_Click()
Rem assegnato valore con tabella proprietà
End Sub

Private Sub OptionButton2_Click()
OptionButton2.Value = 1
End Sub

Private Sub OptionButton3_Click()
OptionButton3.Value = True
End Sub

Private Sub UserForm_Click()

End Sub

ritorna