Multiple font show in richtextbox

See more:

VB

i have Richtextbox1 and it was multiple font content which is involved with ms access database... but when i click Datagridview1 it was successfully opened in Richtextbox1 but only one language or one font content showed but another font not showing properly

please help me

What I have tried:

Public Class SongShow

    Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress

    End Sub

    Private Sub SongShow_Load(sender As Object, e As EventArgs) Handles MyBase.Load, RichTextBox1.VisibleChanged
        'TODO: This line of code loads data into the 'SongDataSet.MAS_SONGS' table. You can move, or remove it, as needed.
        Me.MAS_SONGSTableAdapter.Fill(Me.SongDataSet.MAS_SONGS)

    End Sub


    Private Sub SongShow_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim colors As DialogResult
        colors = ColorDialog1.ShowDialog

        If colors = Windows.Forms.DialogResult.OK Then
            RichTextBox1.ForeColor = ColorDialog1.Color

        End If
    End Sub

    Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
        If e.KeyCode = Keys.Tab Then
            RichTextBox2.Show()
            RichTextBox1.Visible = False
            RichTextBox2.Visible = True
        End If
    End Sub

    Private Sub RichTextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox2.KeyDown
        If e.KeyCode = Keys.Tab Then
            RichTextBox1.Show()
            RichTextBox2.Visible = False
            RichTextBox1.Visible = True
        End If
    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

    End Sub
End Class