ویژوال بیسیک _آموزش _سورس کد_دانلود

Private Sub cmddraw_Click()
For i = 1 To 100
X1 = Rnd * Me.ScaleWidth
Y1 = Rnd * Me.ScaleHeight
X2 = Rnd * Me.ScaleWidth
Y2 = Rnd * Me.ScaleHeight
Line (X1, Y1)-(X2, Y2), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next
End Sub

Private Sub Form_Load()
Randomize
End Sub