checking check box....


Function FnCheckBox(StrVal As String)

Dim xx%, yy$
xx = CheckBox("Caption=''").Checked

If xx = 1 Or xx = 2 Then
yy = "Y"
Else
yy = "N"
End If

If yy = Trim(StrVal) Then

' Do Nothing

Else
CheckBox("Caption=''").Click
End If
End Function