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

Private Sub cmddraw_Click()
Dim n As Integer
Me.ScaleMode = vbPixels
For i = 1 To 70
n = Rnd * 10
If n > 0 Then Me.DrawWidth = n
PSet (Rnd * 400, Rnd * 400), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next
End Sub

Private Sub Form_Load()
Randomize
End Sub