Bueno, llegue a algo asi, pero no pude hacer que el texto funcionara con unicode :/ y no creo tampoco que se pueda, puedes crear un control de usuario simulando ser un TextBox, y que el texto sea lo que se imprima en el control. pero lo veo dificil
Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Sub Command1_Click()
Dim TextoOut() As Byte, TextoW() As Byte, Texto, LongTxt&, Unicode$
Texto = Mid(Text1.Text, 3, Len(Text1.Text) - 3)
Texto = Split(Texto, ";&#")
For i = 0 To UBound(Texto)
Unicode = Unicode & StrConv(ChrW(Texto(i)), vbUnicode)
Next i
TextoW = Unicode
ReDim TextoOut((UBound(TextoW) * 4))
For i = 0 To UBound(TextoW)
TextoOut(i) = TextoW(i)
Next i
LongTxt = Len(Unicode)
Me.Cls
Me.FontSize = 18
TextOut Me.hdc, 0, 0, TextoOut, LongTxt
End Sub
Para convertir el texto al unicode prueba con esta web
http://www.pinnacledisplays.com/unicode-converter.htm, ahi insertas el ·˙˙·٠●To6et0●٠·˙˙·, y lo conviertes, el codigo luego lo copias al Text1.text y le das al Command1, y se imprime el codigo en el Form1.
·˙˙·٠●To6et0●٠·˙˙·
Saludos