A.Private Sub C1 Click() C2.Visible=True C3.Visible=False End Sub B.Private SubC1_Click() C2.Enabled=True C3.Enabled=False End Sub C.Private Sub C1 Click() C2.Enabled=True C3.Visible=False End Sub D.Private SubC1_Click() C2.Visible=True C3.Enabled=False End Sub