[classA.vb]
Declare Function FindWindow Lib "user32.dll" _
Alias "FindWindowA" ( ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

[Form]
Dim hWnd As Long

hWnd = classA.FindWindow( "Notepad", vbNullString )

IF hWnd = 0 Then
' 起動していない
ELSE
' 起動中
ENDIF


こういうPGになっているのですが、ハンドルがうまく動作せず、
Notepadを起動してようがしてまいが全部「起動中」にいってしまいます。
なにが悪いのでしょう・・。