A megoldáshoz elsősorban szükségünk van olyan font készletre, amely unicode. Ezek legfőbb ismertetőjele, hogy több MB-os állományokban kapnak helyet, például az MS Mincho font közel 9 MB, de egy Arial Unicode 22 MB-os állományban kap helyet.
Alapértelmezés szerint az operációs rendszer telepítésekor ezek nem kerülnek fel gépünkre, hacsak nem kérjük a távol-keleti betűkészletek támogatását. Ezt viszont utólag is telepíthetjük, vagy akár az Internetről is letölthetjük, keressünk csak rá az „MS Mincho” sztringre.
Ha adott rendszerünkben a font, akkor felhasználása már egyszerű. Legyen az a feladat, hogy néhány távol-keleti írásjelet rajzoljunk ki a Form-ra.
Ehhez fel kell használnunk annak Paint eseményét.
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.TextRenderingHint = TextRenderingHint.AntiAlias
Itt fontos, hogy olyan betűtípust válasszunk a szöveg kirajzolásához, mely Unicode típusú.
Dim font As New Font("MS Mincho", 32)
Dim s As String = ""
Dim i As Integer
A kirajzolandó sztringhez most egy olyan sztringet állítunk elő, mely a 31000. karaktertől kezdve megjelenít 20 karaktert.
For i = 0 To 19
s += Convert.ToChar(i + 31000)
Next i
A szöveg kirajzolása már a hagyományos módon történhet a DrawString függvény hívásával.
e.Graphics.DrawString(s, font, New SolidBrush(Color.Blue), 20, 40)
End Sub