This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

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