Dim mypen As New Pen(Color.Red, 3)
Dim mygraphics As Graphics = Label1.CreateGraphics
mygraphics.DrawRectangle(mypen, 0, 0, 600, 60)

之后我该如何在这个生成的矩形之中随机画直径在4~6的圆，要求：
1.各个圆之间不能有重合；
2.有超出矩形边界的部分切除；
3.相邻的2个圆心最大距离不能超过20
4.给圆着色，把这些生成的圆随机刷成蓝色或者红色。

请各位指点指点，谢谢了！！！

[此贴子已经被作者于2006-11-21 16:31:59编辑过]