高手勿进！

Question

那你想用TEXTBOX了,你可以再TEXTBOX的VALIDATE事件里写CNACEL=FALSE,当然,你先定义一个变量标志,等输入有字符是,修改标志,
Private sub textbox1_validate(cancel as boolean)
   if  InputFlag Then exit sub 
    cancel=FALSE
endif
当然你要把TEXTBOX的CausesValidation先设为TRUE

Answer 1

你定制一个输入Form，例如frmInput，里面放有TextBox，
然后回车就关掉窗口，继续运行。调用输入窗口是使用如下语句： (在主窗口调用)
frmInput.Show vbModal, Me

Answer 2

让程序暂停运行可以用WaitForSingleObject和CreateProcess这两个Api
以下是个例子，从1显示到100当50时调用Win95的计算器，计算器运行完后再接着显示。
Dim intCount AS Integer
Dim lonStatus As LongDim lonProcHandle As LongDim strCmdLine As String
Dim udtProcessInfo As PROCESS_INFOMATION
Dim udtStartupInfo As STARTUPINFO
strCmdLine = "C:\Win95\calc.exe"
udtStartupInfo = Len(udtStartupInfo)
Fot intCount = 1 to 100
   print intCount
      if intCount = 50 then
         lonStatus = CreateProcess(vbnullstring,strCmdLine,0,0,1,&H40,0&, _
         vbnullstring,ndtStartupinfo,udtProcessinfo)
 lonProcHandle = udtProcessinfo.hprocess
 lonStatus = WaitForSingleObject&(lonProcessHandle,-1)
 LonStatus = CloseHandle&(lonProcessHandle)
      end if
next intCount