Private Sub CheckBox31_Click()
If i10.Value And CheckBox31.Value Then
i10.BackColor = &H8080FF
RG.Value = False
ElseIf i10.Value And RG.Value Then
i10.BackColor = &H80FF&
CheckBox31.Value = False
ElseIf i10.Value And RG.Value = False Then
i10.BackColor = &HFFFFFF
ElseIf i10.Value And CheckBox1.Value = False Then
i10.BackColor = &HFFFFFF
Else
i10.BackColor = &HFFFFFF
End If
End Sub
Private Sub RG_Click()
If i10.Value And RG.Value Then
i10.BackColor = &H80FF&
CheckBox31.Value = False
ElseIf i10.Value And CheckBox31.Value Then
i10.BackColor = &H8080FF
RG.Value = False
ElseIf i10.Value And CheckBox31.Value = False Then
i10.BackColor = &HFFFFFF
ElseIf i10.Value And RG.Value = False Then
i10.BackColor = &HFFFFFF
Else
i10.BackColor = &HFFFFFF
End If
End Sub