リッチテキストボックス内のフォント変更

VB.NETプログラミングしています。
基礎的なことだと思うのですが、
調べてもわかりませんのでご教示ください。
RichTextBoxを使ってテキストエディタを作っています。
このリッチテキストボックス内でキーダウンイベントを発生させ、
選択されている文字のフォント変更（例えばボールド体やイタリック体、下線付加）したいのですができません。
ワードのような機能を付加したいだけなのですが、うまくいきません。
つまり、
If e.Control = True Then
　With RichTextBox1
　　Select Case e.KeyCode
　　　　Case Keys.B
　　（選択されている文字をボールド体にして、
　　　ボールド体の部分は非ボールド体にする）
End Select
End With
EndIf
の中の
「選択されている文字をボールド体にして、ボールド体の部分は非ボールド体にする」という処理ができません。
ご存知の方、ご教示ください。

No.1 ベストアンサー 回答者： mo_gu 回答日時： 2004/12/20 18:31

これでできませんか？

' Visual Basic
RichTextBox1.SelectionFont = New Font("Tahoma", 12, FontStyle.Bold)
RichTextBox1.SelectionColor = System.Drawing.Color.Red

この回答へのお礼

回答ありがとうございます。
お礼遅れました。
これでできました。
ありがとうございます。

お礼日時：2004/12/29 23:41