point的值不更新？
xx=300yy=400
For i = 1 To 5
col = Form1.Pic.Point(xx + i, yy)
Form1.Pic.PSet (xx + i, yy), newcolor
Form1.Pic.AutoRedraw =true
MsgBox col
Next
pic背景色为黑色，为什么就第一次输出的col为0，后4次是同一个值，都是newcolor的值
很急啊！ --------------------编程问答-------------------- 重复
http://topic.csdn.net/u/20100510/14/b3bc5798-5b8c-428a-b64d-c96dcb5059a1.html --------------------编程问答-------------------- 缩放模式不对
Private Sub Command1_Click()
xx = 30
yy = 40
For i = 1 To 5
Col = Form1.Pic.Point(xx + i, yy)
Form1.Pic.PSet (xx + i, yy), vbRed
Form1.Pic.AutoRedraw = True
MsgBox Col
Next
End Sub
Private Sub Form_Load()
Pic.ScaleMode = 3
End Sub
补充：VB , 基础类
