本人初学者做了个电子贺卡出了问题，求助

Private Sub Form_Click()

Dim x, y, i As Integer
FontSize = 32
BackColor = RGB(230, 230, 230)
Scale (-320, 320)-(320, -320)     '设置坐标系
Cls
Print "中秋节快乐！"
For i = 1 To 50                   '50个点
DrawWidth = 50 * Rnd              '点的大小
x = 320 * Rnd                     '获得随机数，Rnd是随机函数
y = 320 * Rnd
If Rnd < 0.5 Then x = -x          '避免溢出范围以外
If Rnd < 0.5 Then y = -y
PSet (x, y), QBColor(Rnd * 15)    '利用x，y指定随机点的位置，利用QBcolor函数赋予随机点的颜色
Next i

End Sub

求高手指点！

--------------------编程问答-------------------- 线宽设置不能为0，而50 * Rnd可能会产生0，所以有错出现。

DrawWidth = 50 * Rnd 此句改成 DrawWidth = 50 * Rnd + 1

补充：VB ,  非技术类