Public Class Form1
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
      ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, _
      ByVal lpsz2 As String) As Integer
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Public Const WM_CHAR = &H102
    Sub Main()
        Dim hwnd As Integer = FindWindow(vbNullString, "Unbenannt - Editor")
        Dim x As Integer = FindWindowEx(hwnd, 0, "Edit", vbNullString)
 
    End Sub
 
 
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles _
      Me.Load
        Call Main()
    End Sub
End Class