C# と VB.NET の質問掲示板

以下のコードまでたどり着いたのですが
ハンドルをうまく取得することができません

どのようにすれば良いでしょうか？


Dim wins = GetObject("new:9BA05972-F6A8-11CF-A442-00A0C90A8F39")

For i As Integer = 0 To wins.count - 1

    Dim win As Object = wins.Item(CObj(i))
    Dim name As String = Path.GetFileNameWithoutExtension(CStr(win.FullName))

    If name.ToUpper() = "EXPLORER" Then

          Dim u As New Uri(win.LocationURL())
          Dim winPath As String = u.LocalPath + Uri.UnescapeDataString(u.Fragment)

          If winPath.ToUpper() = "C:\AAA" Then


          Dim p As Process = Process.Start(winPath)

            'ウィンドウの位置を(0, 10)に、サイズを300x200に変更する
            MoveWindow(p.MainWindowHandle, 0, 10, 300, 200, 1)


          End If


    End If

Next