Private A As BooleanPrivate Command1_Click()
A=True
Do While A
'加入你的程序
Doevents
Loop
MsgBox "End"
End SubPrivate Command2_Click()
A=False
End Sub
A=True
Do While A
'加入你的程序
Doevents
Loop
MsgBox "End"
End SubPrivate Command2_Click()
A=False
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货