Dim dflt as String = RichTextBox1.Font.ToString

Dim s as String = GetSetting("Bearbeiten", Optonen", "RichTextBox1.Font",dflt)

RichTextBox1.Font = Font.???????

Dim f1 as String=RichtextBox1.ForColor.toArgb.ToString

SaveSetting("Berechnen","Optionen",RichTextBox1.ForColor",f1)

Dim dflt1 as String = RichTextBox1.ForeColor.ToArgb.ToString

Dim fn2 as String=GetSetting_("Berechnen", _
  "Optionen","RichtextBox1.ForColor",dflt1)

RichTextBox1.ForeColor=Color.FromArgb(CInt(fn2))