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

实现vb打开网页后，5秒种关闭自己的代码。高人指教！
实现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.me

End   Sub


关闭不了


请高人指教

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