• Home
 · 
• Graphics
 · 
• Make it snow.

Make it snow.

Make it snow.

Rate Make it snow.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Put Three Picture Box and Name the third Picture box as "Picture4" 
' NOw Copy the following Codes and Paste it under ur App. And Enjoy the snow Fall"
' If Any diff Call @ [email protected]

Dim sfx(150), sfv(150), Ptimer, Ptimer1 'Removed the 300 Labels from Patrick Tucci Snow Code.
Private Sub Form_Load()
Picture2.Picture = Picture4.Picture
For sfvar = 0 To 150
sfx(sfvar) = Picture4.ScaleWidth * Rnd
sfv(sfvar) = Picture4.ScaleHeight * Rnd
Picture4.Circle (sfx(sfvar), sfv(sfvar)), 3, QBColor(15)
Next sfvar
End Sub

Private Sub Timer1_Timer()
If Timer < Ptimer + 0.03 Then Exit Sub 'make Animation independent of Computer Speed
Picture4.Cls: Picture2.Cls
For sfvar = 0 To 150
r = Int(Rnd * 50)
sfx(sfvar) = Val(sfx(sfvar)) + r
d = Int(Rnd * 50)
sfv(sfvar) = Val(sfv(sfvar)) + d
If sfx(sfvar) > Picture4.ScaleWidth Then
sfx(sfvar) = -5
End If
If sfv(sfvar) > Picture4.ScaleHeight Then
sfv(sfvar) = -5
End If
Picture4.Circle (sfx(sfvar), sfv(sfvar)), 3, QBColor(15)
Picture2.Circle (sfx(sfvar), sfv(sfvar)), 3, QBColor(15)
Next sfvar
Ptimer = Timer
If Timer > Ptimer1 + 1 Then
Picture1.PaintPicture Picture4.Image, 0, 0
Picture4.Picture = Picture1.Image
Ptimer1 = Timer
End If
End Sub