對于下雪的景象大家可能都不陌生，我們還是用vb來制作一個下雪的景象吧。其實制作這樣一個下雪的景象并不復雜，它的原理是首先在底色為黑色的屏幕上隨機畫出許多白點（雪花），然后使這些雪花不斷地向下移動（重畫），反復循環，就成功地模擬了下雪的景象。下面是這個小程序，你可以修改其中的一些數據調整雪花的密度和雪花落下的快慢。
雙擊窗體寫如下代碼：
dim snow(1000, 2), amounty as integer
private sub form_load()
form1.show
doevents
randomize
amounty = 325
for j = 1 to amounty
snow(j, 0) = int(rnd ＊ form1.width)
snow(j, 1) = int(rnd ＊ form1.height)
snow(j, 2) = 10 ＋ (rnd ＊ 20)
next j
do while not (doevents = 0)
for ls = 1 to 10
for i = 1 to amounty
oldx = snow(i, 0): oldy = snow(i, 1)
snow(i, 1) = snow(i, 1) ＋ snow(i, 2)
if snow(i, 1) > form1.height then
snow(i, 1) = 0: snow(i, 2) = 5 ＋ (rnd ＊ 30)
snow(i, 0) = int(rnd ＊ form1.width)
oldx = 0: oldy = 0
end if
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)
next i
next ls
loop
end
end sub
編寫窗體的鼠標按下代碼：
private sub form_mousedown(button as integer,shift as integer, x as single, y as single)
unload me
end sub
運行上面的小程序，就可以看到漫天的雪花在緩緩落下，地面上還會有積雪！鼠標單擊可結束程序。
