وبلاگ رسمی مهدی غلامی میاندهی

یك Timer را به فرمتون اضافه كنید و Interval اون را به 1 تغییر دهید.

BackColor فرم رو مشكی كنید.

خاصیت BorderStyle فرمتون را برابر None قرار دهید.

خاصیت WindowState فرمتون رو به Maximized تغییر دهید.

وقتی برنامه رو اجرا كردید كم كم نقطه هایی روی فرم ظاهر می شود كه با كلیك برروی فرم به شدت افزایش می یابند. اگر بخواهید از برنامه خارج شوید كلید Escape را بزنید. كمی طول می كشد ولی بالاخره خارج می شود علت دیر خارج شدنش هم اینه كه نقطه ها باید تمام شوند.

و اما كد:

Private Sub Form_Click()

For i = 1 To 1000000

Form1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

PSet (Rnd * Form1.Width, Rnd * Form1.Height)

Next

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 27 Then End

End Sub

Private Sub Timer1_Timer()

Form1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

PSet (Rnd * Form1.Width, Rnd * Form1.Height)

End Sub