Private 花瓣列表 As New List(Of 花瓣)
Private 指示线程是否显示飘飞动画 As Boolean = False
Private 花瓣飘飞独立线程 As Threading.Thread
Private 临时图像 As Bitmap
Private 资源中拥有的所有花瓣 As New List(Of Bitmap)
Private 内存清理指示计数 As Integer = 0
Private Class 花瓣
Public X As Integer
Public Y As Integer
Public 要绘制的大小 As Size
Public 原始大小 As Size
Public 图像 As Bitmap
Public 风向 As Integer = 0
Sub New(xPoint As Integer, yPoint As Integer, NewSize As Size, Sz As Size, Bp As Bitmap, Wd As Integer)
X = xPoint
Y = yPoint
要绘制的大小 = NewSize
原始大小 = Sz
图像 = Bp
风向 = Wd
End Sub
End Class