I really need a good prank

[kleinma]

it would be pretty simple.. something like

'Form Code
Private Sub Form_Load()
    Me.Visible = False
    SetTimer Me.hwnd, 0, 60000, AddressOf TimerProc 'once per minute
End Sub
    
 
Private Sub Form_Unload(Cancel As Integer)
    KillTimer Me.hwnd, 0
End Sub
 
'Module Code
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
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
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    ShellExecute hwnd, vbNullString, "www.pornsite.com", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub