Check Box

Private Sub cmdcheck_Click()
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 Then
lblpassport.Caption = "YOU ARE ELIGIBLE FOR PASSPORT."
Else
lblpassport.Caption = "SORRY ! YOU ARE INELIGIBLE."
End If

End Sub

Private Sub cmdexit_Click()
End
End Sub