Private Sub Check1_Click()If Check2.Value = 1 ThenMsgBox ""End IfEnd Sub
Private Sub Check1_Click()Check1.Value = 0Check2.Value = 1Check3.Value = 2End Sub
Combo1.AddItem Text1.Text
Tesisvb...