vb怎样kill一个其它程序进程

' 3460是刚才系统给记事本分配的ID
Private  Declare  Function  TerminateProcess Lib  " kernel32 "  (ByVal hProcess  As   Long , ByVal uExitCode  As   Long )  As   Long
Private  Declare  Function  OpenProcess Lib  " kernel32 "  (ByVal dwDesiredAccess  As   Long , ByVal bInheritHandle  As   Long , ByVal dwProcessId  As   Long )  As   Long
Private   Const  PROCESS_TERMINATE  =   & H1

Private   Sub  Command2_Click()
      Dim  hand  As   Long
      ' hand = OpenProcess(PROCESS_TERMINATE, True, Process.th32ProcessID) '获取进程句柄
      ' hProcess = OpenProcess(PROCESS_QUERY_INFORMATION+SYNCHRONIZE,FALSE,pid)
     hand  =  OpenProcess(PROCESS_TERMINATE,  True ,  3460 )
    TerminateProcess hand,  0   ' 关闭进程
End Sub