A.Private Sub Bigicon Click() Bigicon.Checked=False End Sub B.Private Sub Bigicon Click() Me.Appear.Bigicon.Checked=True End Sub C.Private Sub Bigicon Click() Bigicon.Checked=True End Sub D.Private Sub Bigicon Click() Appear.Bigicon.Checked=True End Sub