How to know it's running?

[bushmobile]

Here's a one-liner. Although it's pretty damn ugly:

Private Sub Form_Load()
    Debug.Print IsProcessRunning("C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE")
    Debug.Print IsProcessRunning("C:\Program Files\Microsoft Visual Studio\VB98\NotRunning.EXE")
End Sub
 
Private Function IsProcessRunning(ByVal sPath As String) As Boolean
    On Error Resume Next
    IsProcessRunning = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE ExecutablePath = '" & Replace(sPath, "\", "\\") & "'").Count
End Function