問：在一個床體中設置了2個命令按鈕，Command1，Command2。Commamd1執行一個費時的操作，包括調用多個過程和函數，而Command2則是終止/暫停Command1的運行，不是退出該程序，不知用VB5.0如何解決？
答：你可以采用一種變通的方法，在程序中定義一個Boolean變量，在執行command1中的程序時監視該變量，如果為False退出程序，在command2中加入代碼，只要點擊command2就將該變量設置為False下面是例程
DimbMarkAsBoolean
PrivateSubCommand1_Click()
bMark=True
ForI=1To150000'Startloop.
DoEvents'Yieldtooperatingsystem.
Text1.Text=Str(I)
IfNotbMarkThen
ExitSub
EndIf
NextI'Incrementloopcounter
EndSub
PrivateSubCommand2_Click()
bMark=False
EndSub
問：有位大俠編了如下代碼:
PrivateSubcmdCalendar_Click()
DimUserDateAsDate
UserDate=CVDate(txtDate)
IffrmCalendar.GetDate(UserDate)Then
txtDate=UserDate
EndIf
EndSub
