Private Sub Command2_Click()
If Command2.Caption = "开始画线" Then
'要运行的程序+这里
Command2.Caption = "返回初始"
Else
'要运行的程序+这里
Command2.Caption = "开始画线"
End If
End Sub
也可以用2个按钮来实现
Private Sub Form_Load()
Command1.Caption = "开始画线"
Command2.Caption = "返回初始"
Command2.Visible = False
End Sub
Private Sub Command2_Click()
'要运行的程序+这里
Command1.Visible = True
Command2.Visible = False
End Sub
Private Sub Command1_Click()
'要运行的程序+这里
Command2.Visible = True
Command1.Visible = False
End Sub