display math symbol and change size

Public Class Form1
    Dim n As New Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        n = 24
        For n = 12 To 26 Step 2
            ComboBox1.Items.Add(n)
        Next

        RichTextBox1.Font = New Font("Cambria", n, FontStyle.Regular)

        Dim i As Integer
        For i = 8704 To 8959
            RichTextBox1.Text &= (ChrW(i))
            If i Mod 20 = 0 Then 'display 15 characters each line 
                RichTextBox1.Text &= vbCrLf
            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        n = CInt(ComboBox1.Text)
        RichTextBox1.Font = New Font("Cambria", n, FontStyle.Regular)
    End Sub

End Class