seul le TxtBox des Forms2.0 Components permet l'affichage de l'Unicode.
'écrit l'unicode en fichier texte
Dim a(0 To 5) As Byte
a(0) = &HFF
a(1) = &HFE
a(2) = &H39
a(3) = &H4E
a(4) = &H44
a(5) = &H0
Open App.Path & "\unicode.txt" For Binary As #1
Put #1, , a
Close #1
'relis le fichier texte et l'affiche
Dim txtline As String
Open App.Path & "\unicode.txt" For Binary As #1
txtline = InputB(2, #1) ' always FF FE, skip them
txtline = InputB(4, #1)
Close #1
TextBox1.Text = txtline
voilà, tu as la base, avec un exemple unicode chinois (provenant de MSDN)
@+
PCPT