Private Declare Function IsWindowVisible Lib _
   "user32" (ByVal hWnd As Long) As LongPrivate Declare Function TerminateProcess Lib _
   "kernel32" (ByVal hProcess As Long, _
   ByVal uExitCode As Long) As LongPrivate Const SYNCHRONIZE = &H100000
Private Const PROCESS_TERMINATE As Long = &H1参考:
http://search.microsoft.com/default.asp?boolean=ALL&nq=NEW&so=RECCNT&ig=01&ig=02&ig=03&ig=04&ig=05&ig=06&ig=07&ig=08&ig=09&ig=10&i=00&i=01&i=02&i=03&i=04&i=05&i=06&i=07&i=08&i=09&qu=PROCESS_TERMINATE&siteid=ushttp://msdn.microsoft.com/library/en-us/dndd01/html/dd0109list3.asp?frame=true