Obtener Texto de Ventana Externas

[Keyenight]

Bueno he estado trantando de obtener el texto de ventanas externas estoy intentando con el notepad, de la siguiente manera pero dice que se ha probocado un desbordamiento no entiendo cual es el error?

Código vb:

If isRuning("notepad") Then
            Dim notepad As ArrayList = New ArrayList(Process.GetProcessesByName("notepad"))
            For Each i As Process In notepad
                Dim NotepadHandle As Long = FindWindow(vbNullString, i.MainWindowTitle)
                Dim EditHandle As Long = FindWindowEx(NotepadHandle, 0, "Edit", vbNullString)
                RichTextBox1.Text = SendMessage(EditHandle, &HC4, 1, Nothing)
            Next
        End If
 

Que está mal?, Gracias

[David]

Si lo que quieres es obtener el título, sólo tienes que hacer así:

Código vb.net:

If isRuning("notepad") Then
    Dim notepad As ArrayList = New ArrayList(Process.GetProcessesByName("notepad"))
    For Each i As Process In notepad
        RichTextBox1.Text = i.MainWindowTitle
    Next
End If