为什麽出现乱码？急！！！

Question

我花了个坐标系，横轴的刻度为30，60...300,纵轴的刻度为：0.1,0.2....0.9为什麽我写纵轴的时候总是出现乱码？
Private Function PrintWord(X, Y, Word As String)
With Picture1
.CurrentX = X
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End FunctionPrivate Sub Picture1_Click()
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
Picture1.Scale (-100, -100)-(500, 500)
Picture1.Line (0, 300)-(400, 300), RGB(0, 0, 255)
Picture1.Line -(380, 280), RGB(0, 0, 255)
Picture1.Line (380, 320)-(400, 300), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X" '画 X 轴
Picture1.Line (0, 300)-(0, -100), RGB(0, 0, 255)
Picture1.Line -(20, -80), RGB(0, 0, 255)
Picture1.Line (-20, -80)-(0, -100), RGB(0, 0, 255)
Picture1.Print "Y" '画 Y 轴
For lin = 0 To 300 Step 30
Picture1.Line (lin, 300)-(lin, 290)
wor = PrintWord(lin - 10, 320, Str(lin))
Next lin####################################
For lin = -100 To 300 Step 40
Picture1.Line (0, lin)-(5, lin)
For i = 0 To 1 Step 0.1
wor = PrintWord(-30, lin - 10, Str(i))
Next i
Next lin
Picture1.DrawWidth = 2##########################此处有问题
End Sub