June 1, 2002

Setting the font family of the selected text of a RichTextBox

‘ Set the specified font to the selection of a RichTextBox’ Note: require GetSafeStyleForFontFamily” Example: SetFontFamily(richTextBox1, “Times New Roman”)Public Sub SetFontFamily(ByVal rtb As RichTextBox, ByVal fontName As String) Dim fontFam

Pasting the text in the Clipboard into a RichTextBox

‘ Paste the text currently in the Clipboard into the specified RichTextBox’ Example: PasteIntoRichTextBox (richTextBox1)Public Sub PasteIntoRichTextBox(ByVal rtb As RichTextBox) ‘ get the data currently in the Clipboard Dim data