实现vb打开网页后，5秒种关闭自己的代码。高人指教！

Question

实现vb打开网页后，5秒种关闭自己的代码。高人指教！我写的是
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.sina.com")
Me.Hide
If Timer1.Interval = 500 Then unlod.meEnd Sub关闭不了
请高人指教

Answer 1

添上或修改如下内容
Option Explicit
Dim dtTemp As DatePrivate Sub Form_Load()
   WebBrowser1.Navigate ("http://www.sina.com")
   Me.Hide
   Timer1.Interval = 100 
   dtTemp=now
End Sub
Private Sub Timer1_Timer()
    If DateDiff("s", t, Now) = 4 Then Unload Me
End Sub

Answer 2

哦，是５秒钟．．．Private Sub Timer1_Timer()
    If DateDiff("s", t, Now) = ５ Then Unload Me
End Sub

Answer 3

Private Sub Timer1_Timer()
    If DateDiff("s", dTemp, Now) = 5 Then Unload Me
End Sub
'怎么总是写错,....

Answer 4

Timer1_Timer() 设为5秒Private Sub Timer1_Timer()
    Unload Me
End Sub

Answer 5

你timer控件用错了吧..
Private Sub Timer1_Timer()
Unload Me
End Subform_load里面触发

Answer 6

晕这是什么语句
If Timer1.Interval = 500 Then unlod.me

Answer 7

Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.sina.com")
t = Timer
here: If Timer - t = 5 Then
Unload Me
Else
GoTo here
End If
End Sub
不用添加timer1控件了,直接调用timer过程

Answer 8

Timer1.Interval = 500 只是设置timer控件每500毫秒跳一次``

Answer 9

做个窗口 5秒后 unloadme