按鈕標題操作就行了,代碼如下:
If?Command1.Caption?=?"開始"?Then
Command1.Caption?=?"暫停"
'開始後的程序代碼...
Else
Command1.Caption?=?"開始"
'暫停後的程序代碼...
End?If
End?Sub