写了小半天 呵呵``
你看看好么？ "小强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)

vb截取屏幕的模块，代码中可以直接调用

把下面的代码复制到你新建的模块里就可以了，然后在程序中调用就用
Private Sub Command1_Click()
    Me.Picture = CaptureScreen
End Sub

模块代码

Option Explicit

'定位鼠标。
Private Type POINTAPI

    x As Long
    y As Long

End Type

Private Type PALETTEENTRY
    peRed As Byte
    peGreen As By