vb ile kar yağışı efekti

[YSS]

forma bir adet timer ekleyip timerin interval değerini 1000 yapın.Aşağıdaki kodları kod bölümüne yazın.Çalıştırın.

Kod:

Dim X(100), Y(100), pace(100), size(100) As Integer
Private Sub Form_Activate()
Randomize
For I = 1 To 100
X1 = Int(Form1.Width * Rnd)
Y1 = Int(Form1.Height * Rnd)
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
X(I) = X1
Y(I) = Y1
pace(I) = pace1
size(I) = size1
Next
End Sub
Private Sub Form_Load()
Form1.ForeColor = &HFFFF80
Form1.FillColor = &HFFFF&
Form1.BackColor = 0&
End Sub
Private Sub Timer1_Timer()
For I = 1 To 100
Circle (X(I), Y(I)), size(I), BackColor
Y(I) = Y(I) + pace(I)
If Y(I) >= Form1.Height Then Y(I) = 0: X(I) = Int(Form1.Width * Rnd)
Circle (X(I), Y(I)), size(I)
Next
End Sub

[YAKISIKLIM]

Hönk!..
Yukarda ne yazıo? sövmedin değil mi bize yss?

[Erdy||]

TeşekkürLer :)