對於下雪的景象大家可能都不陌生，我們還是用VB來制作一個下雪的景象吧。其實制作這樣一個下雪的景象並不復雜，它的原理是首先在底色為黑色的屏幕上隨機畫出許多白點（雪花），然後使這些雪花不斷地向下移動（重畫），反復循環，就成功地模擬了下雪的景象。下面是這個小程序，你可以修改其中的一些數據調整雪花的密度和雪花落下的快慢。
雙擊窗體寫如下代碼：
DimSnow(1000,2),AmountyAsInteger
PrivateSubForm_Load()
Form1.Show
DoEvents
Randomize
Amounty=325
ForJ=1ToAmounty
Snow(J,0)=Int(Rnd＊Form1.Width)
Snow(J,1)=Int(Rnd＊Form1.Height)
Snow(J,2)=10＋(Rnd＊20)
NextJ
DoWhileNot(DoEvents=0)
ForLS=1To10
ForI=1ToAmounty
OldX=Snow(I,0):OldY=Snow(I,1)
Snow(I,1)=Snow(I,1)＋Snow(I,2)
IfSnow(I,1)>Form1.HeightThen
Snow(I,1)=0:Snow(I,2)=5＋(Rnd＊30)
Snow(I,0)=Int(Rnd＊Form1.Width)
OldX=0:OldY=0
EndIf
Coloury=8＊(Snow(I,2)－10):Coloury=60＋Coloury
Pset(OldX,OldY),QBColor(0)
Pset(Snow(I,0),Snow(I,1)),RGB(Coloury,Coloury,Coloury)
NextI
NextLS
Loop
End
EndSub
編寫窗體的鼠標按下代碼：
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
unloadme
EndSub
運行上面的小程序，就可以看到漫天的雪花在緩緩落下，地面上還會有積雪！鼠標單擊可結束程序。->
