用什么代码判断某个程序是否在运行
有两个程序，A和B，A在运行时可以监控B程序是否在运行（程序位置不确定，但窗体名称不变，比如B程序编译为EXE执行时任务管理器中叫“B程序”）

如果A发现B在运行就XXXXXXXXX

如果A发现B不在运行就YYYYYYYYY

这样的话A程序的代码是什么？

谢谢

[解决办法]
dim h as long
h=findwindow(vbnullstring, "窗体名称 ")
if h then debug.print "A is running "
[解决办法]
Private Declare Function FindWindow Lib "User32 " Alias "FindWindowA " (ByVal lpClassName as String, ByVal lpWindowName as String) as Long
[解决办法]
'在代码文件顶端加上如下api声明
Private Declare Function FindWindow Lib "user32.dll " Alias "FindWindowA " (ByVal lpClassName As String, ByVal lpWindowName As String) As Long