Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal _
  lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd _
As Long, ByRef lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess _
As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As _
Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) _
As Long
Private Const PROCESS_TERMINATE As Long = (&H1)
 
Private Sub Form_Load()
  h = FindWindow(vbNullString, "Spider")
  GetWindowThreadProcessId h, h
  h = OpenProcess(PROCESS_TERMINATE, True, h)
  TerminateProcess h, 0
  CloseHandle h
End Sub