如何關掉其它的程式(編號：17)

我從cww那裡引用了以下的桯式要把某一個程式關閉
結果程式會自動結束,該程式也沒有關閉
我是想做廣告過濾的小程式
有人可以幫我嗎?
我是用NT workstation 4.0 sp6(sp5也是一樣)
vb6 sp3 中文版


Dim winHwnd As Long
Dim winHwnd2 As Long
Dim RetVal As Long
Dim LT As String
LT = List1.Text
winHwnd = FindWindow(vbNullString, LT)
If winHwnd ＜＞ 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
　　If RetVal = 0 Then
　　　　MsgBox "Error posting message."
　　End If
Else
MsgBox "The Calculator is not open."
End If