让整个屏幕雪花飘飘.rar

V = 18 '修改此数字,可改变雪花整体飘荡的速度 Randomize '初始化随机发生器 ' WinInTop Me.hWnd, True '使雪花(窗口)显示在最前,包括显示到任务栏上面 ' WinInTop Form2.hWnd, True Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BF For I = 1 To ctSnowS ctSnow(I).X = ctSnow(I).X + ctSn