Jabaco Source

Dim FoundIndex1 As Integer    			Dim ToggleVal As Boolean

Private Sub Form_Load()
FoundIndex1 = -1
End sub


Private Sub Option1_GotFocus(Index As Integer)
FoundIndex1 = Index
UpdateLabels
End Sub


Private Sub Option1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
ToggleVal = Option1(Index).Value
End Sub


Private Sub Option1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
With Option1(Index)
.Value = .Value Xor ToggleVal 'Toggle the state of the option
If .Value Then 'If it is selected Then
FoundIndex1 = Index ' Save the index
Else 'Else (not selected)
FoundIndex1 = -1 ' Flag as not selected

End If
End With
UpdateLabels 'Update the labels based on the current selections
End Sub