Private Sub EinfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) _
   Handles EinfügenToolStripMenuItem.Click
        If rtb_edit.Text = "Rückgängig" Then
            rtb_edit.Undo()
        End If
    End Sub
 
    Private Sub AusschneidenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles AusschneidenToolStripMenuItem.Click
        If rtb_edit.Text = "Ausschneiden" Then
            rtb_edit.Cut()
        End If
    End Sub
 
    Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles KopierenToolStripMenuItem.Click
        If rtb_edit.Text = "Kopieren" Then
            rtb_edit.Copy()
        End If
    End Sub
 
    Private Sub EinfügenToolStripMenuItem1_Click(sender As Object, e As _
      EventArgs) Handles EinfügenToolStripMenuItem1.Click
        If rtb_edit.Text = "Rückgängig" Then
            rtb_edit.Paste()
        End If
    End Sub
 
    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles LöschenToolStripMenuItem.Click
        If rtb_edit.Text = "Löschen" Then
            rtb_edit.Delete()
        End If
    End Sub

  Private Sub RückgängigToolStripMenuItem_Click(sender As Object, e As _
    EventArgs) Handles RückgängigToolStripMenuItem.Click
        rtb_edit.Undo()
    End Sub
 
    Private Sub AusschneidenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles AusschneidenToolStripMenuItem.Click
        rtb_edit.Cut()
    End Sub
 
    Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles KopierenToolStripMenuItem.Click
        rtb_edit.Copy()
    End Sub
 
    Private Sub EinfügenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles EinfügenToolStripMenuItem.Click
        rtb_edit.Paste()
    End Sub
 
    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs) Handles LöschenToolStripMenuItem.Click
        rtb_edit.Delet