[WinMobileCE] สั่งปริ้น ผ่าน Printer Mobile แล้ว Font ไทยเพี้ยน ทั้งที่ Add font แล้ว

Public Sub TestPrint()
        Try
            ' Instantiate connection for CPCL Serial port on COM1.
            Dim thePrinterConn As New SerialPrinterConnection("COM4")
            ' Open the connection - physical connection is established here.
            thePrinterConn.Open()
            ' This example prints "This is a CPCL test." near the top of the label.            
            '{Command} {font} {size} {x] {y} {data}         
            Dim cpclData As String = "! 0 200 200 203 1" & vbCr & vbLf & _
             "CENTER" & vbCr & vbLf & _
            "PCX 0 0 !<picture.pcx" & vbCr & vbLf & _
           "TEXT T_ANG11 0 10 100 กรุงเทพมหานคร" & vbCr & vbLf & _
           "TEXT T_ANG11 0 10 150 ;;ทดสอบบบบ;;" & vbCr & vbLf & _
           "TEXT T_ANG11 0 10 200 ;;ทดสอบบบบ;;" & vbCr & vbLf & _
           "TEXT T_ANG11 0 10 250 !<DATE" & vbCr & vbLf & _
           "FORM" & vbCr & vbLf & _
           "PRINT" & vbCr & vbLf
            ' Close the connection to release resources.         
            thePrinterConn.Write(Encoding.UTF8.GetBytes(cpclData))
            ' ===>> Encoding ถ้าไม่ใช้ UTF8 จะขึ้น ???????
            System.Threading.Thread.Sleep(100)
            '
            thePrinterConn.Close()
           

        Catch e As ZebraPrinterConnectionException
            MessageBox.Show(e.Message)
        End Try
    End Sub

 Public Sub TestSerialPort()
        Try
             Dim sp As New SerialPort("COM4")
            sp.Encoding = Encoding.UTF8 
             ' ===>> Encoding ถ้าไม่ใช้ UTF8 จะขึ้น ???????
            sp.DiscardNull = False
            sp.Open()
            System.Threading.Thread.Sleep(100)
            '  Dim cpclData As String = "! 0 200 200 203 1" & vbCr & vbLf & _
            "TEXT T_TAHO12 0 20 0 ;;ทดสอบบบบ;;" & vbCr & vbLf & _
            "FORM" & vbCr & vbLf & _
            "PRINT" & vbCr & vbLf           
            sp.WritecpclData 
            sp.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        
    End Sub