Private Const EM_UNDO = &HC7
Private Const EM_CANUNDO = &HC6
Private Const WM_USER = &H400
Private Const EM_CANREDO = (WM_USER + 85)
Private Const EM_REDO = (WM_USER + 84)
Private Const EM_GETUNDONAME = (WM_USER + 86)
Private Const EM_GETREDONAME = (WM_USER + 87)
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" ( _
  ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As _
  Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As _
Long
 
 
Private Sub mnuEditUndo_Click()
    Dim Result&
    Result = SendMessage(ActiveForm.rtfText.hwnd, EM_CANUNDO, 0&, 0&)
    If Result <> 0 Then
        SendMessage ActiveForm.rtfText.hwnd, EM_UNDO, 0&, 0&
        ActiveForm.rtfText.SetFocus
    End If
End Sub
 
Private Sub mnuEditwiederholen_Click()
    If SendMessage(ActiveForm.rtfText.hwnd, EM_REDO, 0&, 0&) <> 0 Then
        SendMessage ActiveForm.rtfText.hwnd, EM_REDO, 0&, 0&
    End If
End Sub
 
Private Sub rtfText_Change()
    'Exit Sub
    If rtfText.Text = "" Then
        fMainForm.mnusuchen2.Enabled = True
        fMainForm.tbToolBar.Buttons.Item(11).Enabled = True
    Else
        fMainForm.mnusuchen2.Enabled = False
        fMainForm.tbToolBar.Buttons.Item(11).Enabled = False
    End If
End Sub