1,488
社区成员




Private Sub Timer1_Timer()
Load Form2
ShowWindow Form2.hwnd, SW_SHOWNA
Form2.ZOrder 1 '<-
Form2.WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Const SW_SHOWNA As Long = 8
Private Const SW_SHOWNOACTIVATE As Long = 4
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Timer1_Timer()'假定你是用定时器来触发的
Load Form2
ShowWindow Form2.hwnd, SW_SHOWNA '这样就不会争抢焦点
Form2.WebBrowser1.Navigate "www.baidu.com"
End Sub