Dim HWND As IntPtr = FindWindow(vbNullString, "SERVICE") '(" &  & ")")
 
        Dim HWNDMemo As IntPtr
 
        HWND = FindWindowEx(HWND, 0, "MDIClient", vbNullString)
 
        HWND = FindWindowEx(HWND, 0, "Centura:AccFrame", "Reparaturauftrag")
        HWNDMemo = FindWindowEx(HWND, 0, "Centura:FormToolBar", vbNullString)
 
        'hwnd des Memobtton ermitteln
        HWNDMemo = GetDlgItem(HWNDMemo, 24583)
        SetFocus(HWNDMemo)
        'Button klicken
        SendMessage(HWNDMemo, BM_CLICK, 0, 0) 'Button drücken
        System.Threading.Thread.Sleep(1000)'kurz warten bis das Memofeld bereit 
        ' ist
        SendKeys.Send("^{END}") 'Strg+End-Taste drücken
 
        SendKeys.Send("{ENTER}")
 
        SendKeys.Send("Erinnerung geschrieben, " & Format(Now, "dd.MM.yy") & "" & _
          "" & "ok")
 
        SendKeys.Send("{F7}")'Änderung speichern, Textfeld schließen