CHECK BOX

AIM: To create a form for check box operation

CODE

Form 1
Dim i As Integer
Private Sub Check_Click(Index As Integer)
Message.Caption = "YOU GOT"
For i = 0 To 5
If Check(i).Value = 1 Then
Message.Caption = Message.Caption & Chr(10) & Check(i).Caption
End If
Next i
End Sub
Private Sub Clear_Click()
For i = 0 To 5
Check(i).Value = False
Next i
Message.Caption = ""
End Sub
Private Sub Exit_Click()
End
End Sub