vb中如何画点

Pset (x, y), color

其中x,y是所画点的坐标值，color是点的颜色值，比如：

Me.PSet (100, 100), vbRed '在当前窗体的(100,100)位置画一个红色的点

又比如：

Picture1.PSet (Picture1.ScaleWidth \ 2, Picture1.ScaleHeight \ 2), vbBlue '在Picture1中的中心位置画一个蓝色的点

在vb中画点的方法是Pset。根据相关资料显示，Pset(x，y)，color其中x，y是所画点的坐标值，color是点的颜色值。PrivateSubCommand1_Click()DimiAsInteger，nAsByte，xAsInteger，yAsIntegerDimrAsInteger，gAsInteger，bAsIntegerFori=1To1000Randomizen=Int(Rnd*60+10)x=Rnd*Form1.Widthy=Rnd*Form1.Heightr=Int(Rnd*256)g=Int(Rnd*256)b=Int(Rnd*256Form1.DrawWidth=nForm1.PSet(x，y)，RGB(r，g，b)NextiEndSub。

---