9x/NT users

[Sam Finch]

could some people test this code under windows 95,98 and NT please, I'm not sure how well unicode APIs are supported under these verion of windows

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
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 i As Integer
Dim PiSymbol As String

PiSymbol = " "

i = 960

CopyMemory ByVal StrPtr(PiSymbol), i, 2

TextOut Picture1.hdc, 0, 50, StrConv(PiSymbol, vbUnicode), 1
End Sub

Thanks for your help

[Mark Sreeves]

If just prints an unprintable ASCII char (you know, a thick blank line) on my NT box and my 95 machine.

[Sam Finch]

Damn, Thanks anyway, I'll have to do something else.