求VB程序设计，有一段雪花飘扬的代码，求添加代码让用户选择往左飘或者往右飘，还有飘雪速度代码。

Private sub form1_load(省略）
Dim i As Integer
For i=0 To 99
Randomize()
s(i)=New snowflakes(Rnd()Mewidth,Rnd()MeHeight)
Next
End Sub

Private sub timer1_tick（省略）
MeRefresh()
pen1=New pen(colorwhite,5)
g=MeCreateGraphics
For i=0 to 99
gDrawEllipse(pen1,s(i)x,s(i)y,1,1)
s(i)down(10)
If s(i)x>=Mewidth Then
s(i)x=Rnd()20
End If
If s(i)y>=MeHeight Then
s(i)y=Rnd()10
End If

以上就是关于求VB程序设计，有一段雪花飘扬的代码，求添加代码让用户选择往左飘或者往右飘，还有飘雪速度代码。全部的内容，包括:求VB程序设计，有一段雪花飘扬的代码，求添加代码让用户选择往左飘或者往右飘，还有飘雪速度代码。、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！