[RESOLVED] Kanji TextOut (Unicode)

[Jim Davis]

Hello!

Option Explicit
Private Declare Function TextOutW Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
 
Private Sub DisplayLetter()
Dim sS As String
  sS = StrConv(ChrW$((78 * 256) + 12), vbUnicode)
  PictureBox1.Cls
  TextOutW PictureBox1.hdc, 0, 0, sS, 1
End Sub

This will pop up a character from the unicode kanji table, but will be rotated to the left

What am i missing here?