求助：一个简单问题

Question

With Command1
        If .Caption = "开始" Then
            .Caption = "停止"
        Else
            .Caption = "开始"
        End If
    End With

Answer 1

'设置Command1的Caption属性为"开始"
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
    Command1.Caption = "停止"
Else
    Command1.Caption = "开始"
End If
End Sub

Answer 2

private command_click()
static a
a=a+1
if a mod 2=0  then
command1.caption="开始"
else
command1.caption="停止"
end if 
end sub
这个好像也能实现`!