Sub KillWin(Title As String)
Dim a
AppTitle = Title


EnumWindows AddressOf CheckAllWindows, 0&
If ApphWnd = 0 Then Exit Sub
a = PostMessage(ApphWnd, WM_CLOSE, 0&, 0&)
End Sub