Unicode Font not getting updated

[ragavendran]

Purpose : I am combining two different language text from two different RTBs into another RTB. Language1 uses a Unicode font and Language2 uses normal font. In the process the Unicode stuff alone is an issue here. The fontsize which I set getting updated properly, whereas the fontstyle property alone not getting updated. I am using a for loop. In the very first loop everything is intact as I set. From the second loop onward alone the issue is as above.

Summary : Everything is OK, except for the fontstyle stuff, that too when using a Unicode font.......

Here is my code....

Private Sub cmdCombine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCombine.Click
        Dim Lines1() As String
        Dim Lines2() As String
        Dim CurPos As Integer = 0
        Dim vAddedText As String = ""

        If txtSanskrit.Text = "" Or txtNew1.Text = "" Then
            MsgBox("What to combine?", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        txtCombine.Text = ""
        Lines1 = Split(txtSanskrit.Text, vbLf & vbLf)
        Lines2 = Split(txtNew1.Text, vbLf & vbLf)

        If UBound(Lines1) <> UBound(Lines2) Then
            MsgBox("Error")
            Exit Sub
        End If

        For a = 0 To UBound(Lines1)
            If a = 0 Then
                vAddedText = Lines1(a)
            Else
                vAddedText = vbCrLf & vbCrLf & Lines1(a)
            End If

            txtCombine.SelectionStart = CurPos
            txtCombine.SelectionLength = Len(Lines1(a))
            txtCombine.SelectionFont = New Font("BRHDev02", 11, FontStyle.Bold) ' this is the so called unicode font
            txtCombine.AppendText(vAddedText)
            CurPos = CurPos + Len(Lines1(a)) + 2

            txtCombine.SelectionStart = CurPos
            txtCombine.SelectionLength = Len(Lines2(a))
            txtCombine.SelectionFont = New Font("Geethapria", 12, FontStyle.Regular)
            vAddedText = vbCrLf & Lines2(a)
            txtCombine.AppendText(vAddedText)
            CurPos = CurPos + Len(Lines2(a)) + 1

        Next a

        
    End Sub

[Niya]

You should test out that code(only the line you highlighted) on a normal control first. Like a Label or a TextBox. Can your code change a Label's font to that BRHDev02 font ? Lets answer that question first.