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