Private Declare Ansi Function SendMessage Lib "user32.dll" Alias _
   "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam _
   As Integer, ByVal lParam As String) As Integer
 
    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
 
 
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
 
        Dim hwnd As Integer = FindWindow("__oxFrame.class__", "3 Gespräche -" & _
          "Pia")
        Dim x As Integer = FindWindowEx(hwnd, 0, "__oxFrame.class__", _
        vbNullString)
        x = FindWindowEx(x, 0, "Internet Explorer_Server", vbNullString)
        SendMessage(x, WM_CHAR, 49, vbNullString)
 
End Sub

       Dim hwnd As Integer = FindWindow(vbNullString, "Unbenannt - Editor")
       Dim x As Integer = FindWindowEx(hwnd, 0, "Edit", vbNullString)
       SendMessage(x, WM_CHAR, 49, vbNullString)