Form click 之后
使鼠标变成Circle化成的圆
并且可以在程序运行时以适当代码改变它的大小，并随着鼠标在哪里Circle画的圆的圆心就到哪里
最后可以清除该圆范围内的图像
就像操作系统自带的画图板中的橡皮擦！
程序越精炼越好，最好别用什么vb API...的函数，本人没学过，看不懂啊。如果一定要的话，请给予详细说明。
非常感谢！……

风吹过b
你的思路很好，我收下了。
恩，我会给你加分的。
建议改进：要用Shape控件的画，还是正方形，长方形的好；我建议用你的思路加上不用控件、就用Method画图方法更好，你试试看。
加分之前，请你给我补补基础吧！
1.解释一下Rnd(a)，a < 0 的情况;Me.Line -(Rnd() * Me.Width, Rnd() * Me.Height), Rnd() * 16777215同一句话中3个Rnd()的值相同吗？
2.Move方法中Button AS Integer,Shift AS Integer是什么意思啊？这两个变量有什么用？怎么用？
3.vb 画图默认的线的颜色？是黑色吗？
适当举几个小例子说明一下，可以吗？
非常感谢啊！！！

谢谢
颜色的值，不是为16进制的数吗共9位，你的只有8位，我试过虽然6位也行，你能给我说一下吗？
vb画图默认颜色的属性名为ForeColor！
    具体清除是用的  这条命令
    Me.Circle (MX, MY), R, Me.BackColor
    这个命令是在窗体上画个圆.圆的线条是背景色.
这有个缺点，擦除时，是以正方形的形式，不是圆形，失真了。
不如: 'For s = 1 To R
      'Me.Circle (X, Y), s, BackColor
      ''Me.PSet (X, Y), BackColor
      'Next s
      '圆形橡皮擦 (1)
      'Me.Line (X - R / 2, Y - R / 2)-(X + R / 2, Y + R / 2), BackColor, BF
      '方形橡皮擦 (2)
只是（1）的方法，圆形画不实啊
再次谢谢你！

Thank you very much!
明天报到后就开学了！……
再见了！……