窗体上画两个command按钮 然后粘贴代码
Private Sub Command1_Click()
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click()
Command2.Visible = False
Command1.Visible = True
End Sub
Private Sub Form_Load()
Command2.Visible = False
End Sub