كود لرسم بعض الدوائر على الفورم

Dim X(100), Y(100), pace(100), size(100) As Integer
Dim size1
Dim d

Private Sub Form_Activate()
For i = 1 To 100
X1 = Int(Form1.Width * Rnd)
Y1 = Int(Form1.Height * Rnd)
Timer1.Enabled = True
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
X(i) = X1
Y(i) = Y1
pace(i) = pace1
size(i) = size1
Next
End Sub

مع تحيات منتديات نوردين المتطورة

» كود لتغيير شكل الفورم على شكل دائرة