Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myTitle As String = "2005 Ford Mustang" & vbCrLf
Dim myBody As String = _
"BlahBlahBlahBlahBlahBlah" & vbCrLf & _
"ClahClahClahClahClahClah" & vbCrLf & _
"DlahDlahDlahDlahDlahDlah" & vbCrLf
RichTextBox1.Clear()
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, 14, FontStyle.Bold)
RichTextBox1.SelectedText = myTitle
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, 12, FontStyle.Regular)
RichTextBox1.SelectedText = myBody
End Sub
End Class
|