Public Class Form1
 
    'Die globale Variable:
    Dim OldRTF_Text As String = ""
 
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles RichTextBox1.TextChanged
        OldRTF_Text = Richtextbox1.text
    End Sub
 
    Private Sub NeuesDokumentToolStripMenuItem_Click(ByVal sender As _
    System.Object, ByVal e As System.EventArgs) Handles _
    NeuesDokumentToolStripMenuItem.Click
 
        'Wenn der Text geändert wurde:
        If txt.text = OldRTF_Text = True Then
            If MessageBox.Show("Neues dokument erstellen ?", "ZeX", _
            MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _
            Windows.Forms.DialogResult.Yes Then
                Me.TXT.Clear()
            End If
        Else
            Messagebox.show("Der Text wurde nicht geändert!")
        End If
 
    End Sub
 
End Class

______________________________________


www.fk-freeware.de.vu