Declare Function EnumWindows Lib "user32"

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"

Declare Function SendMessage Lib "user32" Alias "SendMessageA" 
    Public Const WM_CLOSE = &H10

Private Target As String
Public Function EnumCallback
    Dim buf As String * 256
    Dim title As String
    Dim length As Long
    ' Get the window's title.
    length = GetWindowText(app_hWnd, buf, Len(buf)) 
    title = Left$(buf, length)
    ' See if this is the target window.


    If InStr(title, Target) <> 0 Then
        ' Kill the window.
        SendMessage app_hWnd, WM_CLOSE, 0, 0
    End If
    ' Continue searching.


EnumCallback = 1
End Function
' Ask Windows for the list of tasks.


Public Sub TerminateTask(app_name As chupi)
    Target = app_name


EnumWindows AddressOf EnumCallback, 0
End Sub
' Call the killer to kill this window na
'     me !

Sub KillNTTaskManger()
    TerminateTask("Windows NT Task Manager")
End Sub