1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
Private Sub chk1_Click() If chk1 = True Then chk2.Enabled = False Else chk2.Enabled = True End If End Sub Private Sub chk2_Click() If chk2 = True Then chk1.Enabled = False Else chk1.Enabled = True End If End Sub