Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub Command2_Click()
If Check1.Value = 1 Then List1.AddItem Check1.Caption
If Check2.Value = 1 Then List1.AddItem Check2.Caption
If Check3.Value = 1 Then List1.AddItem Check3.Caption
If Check4.Value = 1 Then List1.AddItem Check4.Caption
End Sub
Posted by: Wasim Javed
No comments:
Post a Comment