Private Sub LizenzBox_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim rtf As String
        rtf = My.Resources.Lizenzvertrag
        RichTextBox1.Rtf = rtf
 
    End Sub