【挑战】我在命令行起了TOMCAT，如果用VB程序找到窗口并关掉它？

[cooler]

我的VB程序里面需要在启动时自动启动TOMCAT，关闭时又自动关闭TOMCAT。
我可以在启动时用SHELL来启动这个TOMAT，但是关闭时就不知道怎么关闭这个打开的进程了。
我看了一下，TOMCAT启动后，会有一个叫做TOMCAT的DOS窗体出现。
在WINDOWS任务管理器里面，
可以看到：
1、第一个标签页【应用程序】列表里面多了一个叫做Tomcat的窗苦。
2、第二个标签页【进程】里面多了个叫做java的进程。
我用如下代码找到了窗体句柄：
Private Sub Command2_Click()
Dim wnd As Long

wnd = FindWindow(vbNullString, "Tomcat")

Debug.Print wnd

End Sub

但是，不知道找到之后可以怎么作才能关闭这个窗体，请指教。谢谢。

[cooler]

我找到了关闭窗体的代码，但是它总是会出现一个：正在等待窗体关闭的窗口，虽然过1秒后就消失了。
所以请问还有没有更好的方法？
Dim wnd As Long

wnd = FindWindow(vbNullString, "Tomcat")

Debug.Print wnd

If wnd <> 0 Then
SendMessage wnd, WM_CLOSE, 0, 2
End If

[cooler]

请教啊？为什么没有人呢？