如何控制窗体的显示时间
有一段程序如下:Private Sub Form_Load()
Dim hWnd&
Dim xlApp As Object
If IsFileOpen(App.Path & "\" & Dir("*.dll")) Then _
MsgBox App.EXEName & " 文件已经打开!", vbInformation, "系统提醒:": GoTo ooo
form2.Show 0
DoEvents
Set xlApp = CreateObject("Excel.Application") '如果在工程中引用了EXCEL这句可不要
xlApp.Workbooks.Open (App.Path & "\" & Dir("*.dll"))
hWnd = FindWindow(vbNullString, xlApp.Caption)
SetWindowLong hWnd, GWL_STYLE, IStyle
DrawMenuBar hWnd '重绘
xlApp.Visible = True
Set xlApp = Nothing
ooo:
Unload Me
Unload form2
End
End Sub
我要想延长 form2 窗体的显示时间,应该如何修改上面用红色标注的那两句:
form2.Show
DoEvents
哪位高人能给以指点,谢谢!
[ 本帖最后由 余瑞龙 于 2011-4-29 09:57 编辑 ]