Declare Auto Sub FindWindow Lib "user32.dll" _
    (<MarshalAs(UnmanagedType.LPTStr)> ByVal def As String, _
     <MarshalAs(UnmanagedType.LPTStr)> ByVal ghr As String)

    Private Sub Command2_Click(ByVal sender As System.Object, _
　　　ByVal e As System.EventArgs) Handles Command2.Click
        Dim strWindowClassName As String
        Dim lngWindowHandle As Long
        Dim lngChildWindowHandle As Long
        Dim lngWin32apiResultCode As Long

        ' クラス名でウィンドウハンドルを取得
        strWindowClassName = "Notepad"
        lngWindowHandle = FindWindow(strWindowClassName, vbNullString)
        ' ウィンドウハンドルを取得できたときは
        If lngWindowHandle <> 0 Then
            MsgBox("aaa")
        End If
    End Sub

このコーディングだと FindWindowは値を返せませんとでてしまいます。
6.0だといけると思うのですが、,netだとうまくいきません。
ご存知のかた、教えてください。

Declare Auto Sub FindWindow Lib "user32.dll" _
(<MarshalAs(UnmanagedType.LPTStr)> ByVal def As String, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal ghr As String)


Sub ではなく Function を使用しないと値は返せませんよ。
こんな感じでしょうか？
Declare Auto Function FindWindow Lib "user32.dll" _
(<MarshalAs(UnmanagedType.LPTStr)> ByVal def As String, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal ghr As String) As Integer