یک فرم زیبا داشته باشید

[samanvb]

یه فرم زیبا داشته باشید اینها را باید روی فرم خود قرار دهید
Private Sub Timer1_Timer()
X = Int(Rnd() * Form1.Width)
Y = Int(Rnd() * Form1.Height)
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
d = Int(Rnd() * 20) + 1
Form1.DrawWidth = d
PSet (X, Y), RGB(a, b, c)
End Sub
جالبه؟