Private Sub tbBar_ButtonClick(ByVal sender As System.Object, ByVal e As _
    System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbBar.ButtonClick
        Dim fFont As Font, fsStyle As FontStyle
            '[...]
            Case 8
                fsStyle = rtfMsg.SelectionFont.Style
 
                If fsStyle = FontStyle.Bold Then
                    fsStyle = fsStyle Or FontStyle.Bold 'Beim Setzen bleiben 
                    ' zwar die anderen Eigenschaften vorhanden...
                Else
                    fsStyle = FontStyle.Regular '... beim Zurücksetzen aber 
                    ' gehen sie verloren
                End If
 
                fFont = New Font(rtfMsg.SelectionFont, fsStyle)
                rtfMsg.SelectionFont = fFont
            '[...]
        End Select
  End Sub

Gru?
Tyson