Public Function RichTextboxRead(ByRef rtb As Windows.Forms.RichTextBox, _
     ByVal filename As String) As Boolean
        Try
            Dim fs As New IO.FileStream(filename, IO.FileMode.OpenOrCreate)
            Dim b(fs.Length - 1) As Byte
            fs.Read(b, 0, b.Length)
            fs.Close()
            rtb.Rtf = System.Text.Encoding.Unicode.GetString(b)
            Return True
        Catch ex As Exception
        End Try
    End Function
 
    Public Function RichTextboxWrite(ByRef rtb As Windows.Forms.RichTextBox, _
      ByVal filename As String) As Boolean
        Try
            Dim fs As New IO.FileStream(filename, IO.FileMode.Create)
            Dim b() As Byte
            b = System.Text.Encoding.Unicode.GetBytes(rtb.Rtf)
            fs.Write(b, 0, b.Length)
            fs.Close()
            Return True
        Catch ex As Exception
        End Try
    End Function
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        ' Wenn die Form geladen wird, wird der Text in die Rtb eingelesen
        RichTextboxRead(RichTextBox1, "C:\MeinRichText.rtf")
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ' Und wenn die Form geschlossen wird, wird der Rtb-Inhalt wieder 
        ' abgespeichert
        RichTextboxWrite(RichTextBox1, "C:\MeinRichText.rtf")
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co