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

Code:
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