求vb高手,大神

这个是判断以这个“ExeNm”命名的程序是否运行的一个代码，我测试没问题啊

Private Sub Form_Load()
If Isrunexe("VB6.exe") Then
MsgBox "VB6.exe" & "正在运行！"
End If
End Sub
Public Function Isrunexe(ExeNm As String) As Boolean

Dim objWMIService, colProcesslist

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & ExeNm & "'")
Isrunexe = IIf(colProcesslist.Count > 0, True, False)
Set objWMIService = Nothing
Set colProcesslist = Nothing
End Function

好容易啊！ 都不会