关于FindWindow函数，关闭shell打开的exe程序

Question

首先，如果关闭用shell打开的exe程序？
============
参照msdn ：
Private Sub Command2_Click()
         Dim lpClassName As String
         Dim lpCaption As String
         Dim Handle As Long         Const NILL = 0&  '这些符号什么意思？ 
         Const WM_SYSCOMMAND = &H112
         Const SC_CLOSE = &HF060&         lpClassName = "SciCalc"
         lpCaption = "Calculator"      '* Determine the handle to the Calculator window.
         Handle = FindWindow(lpClassName$, lpCaption$)  '这地方提示出错      '* Post a message to Calc to end its existence.
         Handle = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)      End Sub
===============
为什么运行时，总会出现错误 :sub or function not defined
而且FindWindow 高亮显示！

Answer 1

缺少API声明Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long这我是添加在module中的sendmessage也要声明
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long