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 = 2


Sub DothisDothat()
Do
Application.OnTime Now + TimeValue("00:00:02"), "StopThat"
Loop
End Sub

Sub Stopthat()
Dim i As Long

i = ShellExecute(Me.hwnd, "open", "http://www.kingsofchaos.com/recruit.php?uniqid=c4r8554k", vbNull, vbNull, 3)

End Sub


Private Sub Form_Load()
Stopthat
End Sub

    Source: geocities.com/matkins70