谁能帮我看看这段程式。(继前一封贴子）

Question

Const WM_CLOSE = &H10  
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Private Sub FORM_Load() 
End Sub 
Private Sub Command1_Click() 
Dim winHwnd As Long 
Dim RetVal As Long 
winHwnd = FindWindow(vbNullString, "计算器") 
Debug.Print winHwnd 
If winHwnd <> 0 Then 
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) 
If RetVal = 0 Then 
MsgBox "关闭计算器出错！" 
End If 
Else 
MsgBox "计算器没有运行。" 
End If 
End Sub