请VB高手帮我看看这段代码

' FindWindow函数声明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As Long
' PostMessage函数声明
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) As Long
'关闭程序需要的常量
Const WM_CLOSE = &H10

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

请问其中那个是calc.exe的进程？
如果想更改

请VB高手帮我看看这段代码 请帮我看看这段vb代码 请VB高手帮我看看分析解释这段代码:谢谢 请高手帮我看看这段asp代码！ 请VB高手给看看这段代码! 请VB高手看看这段代码 很短的.. 请 帮我看看这段代码 高手帮我看看这段VB代码？解释一下 ～谢谢 了 ～在线等 大家帮我看看这段VB代码！！～急 帮我看看这段VB代码错误