Private Sub Form_Load()
    Show
 
    With RichTextBox1
        .Text = "5"
        .SelStart = Len(.Text)
        .SelFontName = Printer.Fonts(188)
        .SelText = "D"
        .SelFontName = .Font
        .SelText = "4"
        .SelStart = Len(.Text)  '--Cursor ans Ende
 
        '--So geht es auch. Wenn die RichTextBox aber sichtbar ist,
        '--sieht man für einen kurzen Moment die Selectierung im Text
'        .Text = "5D4"
'        .SelStart = 1
'        .SelLength = 1
'        .SelFontName = Printer.Fonts(188)
'        .SelStart = Len(.Text)  '--Cursor ans Ende
    End With
End Sub