A.Private Sub Command1_Click()
Command2.Visible=True
Command3.Visible=False
End Sub
B.Private Sub Command1_Click()
Command2.Enabled=True
Command3.Enabled=False
End Sub
C.PrivateSubCommand1_Click()
Command2.Enabled=True
Command3.Visible=False
End Sub
D.Private Sub Command1_Click()
Command2.Visible=True
Command3.Enabled=False
End Sub