VB教程:图片框(PictureBox)

2024年4月5日发(作者：)

Dim r As Integer

draw = True

x = idth / 2

y = eight / 2

For r = 0 To idth / 2

(x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

Next r

draw = False

End Sub