Private Sub Commandl_Click() Command2.Visible=True Command3.Visible=False End Sub Private Sub Commandl_Click() Command2.Enabled=True Command3.Enabled=False End Sub PrivateSubCommand1_Click() Command2.Enabled=True Command3.Visible=False End Sub PrivateSubCommand1_Click() Command2.Visible=True Command3.Enabled=False End Sub