WAP to find check box events (Fruit Shop)

Private Sub Command1_Click()
Dim str As String
str = ""
If Check1.Value = 1 Then
str = str & Check1.Caption & Chr(13)
End If
If Check2.Value = 1 Then
str = str & Check2.Caption & Chr(13)
End If
If Check3.Value = 1 Then
str = str & Check3.Caption & Chr(13)
End If
MsgBox "You have selected :" & Chr(13) & str
End Sub


Posted by: Wasim Javed