VB编程实现屏幕开花效果

这就是那个满屏幕开花的程序，其中加了背景音乐打包，热键退出等。
首先做个透明全屏幕窗体，其次，加个TIMER，让image中的图片在窗体随机位置显示（找那中背景透明的图形玫瑰花文件），这种方法涉及到动态加载控件
最后，设置个热键让程序正常退出。(建议去掉屏蔽键盘按键的代码，那样不用热键直接用KEYPRESS事件就可以了正常退出了，这样也不是强制别人把程序看完)
下面的代码是没修改过的，其实不能正常退出，要弹出一个WINDOWS错误对话框程序才结束。。改正方法是在定义的热键被按的事件中加个Form1.Command1.Value = True，加个Command1的单击事件里面写个unload me就能正常退出了。。
花的出现层次可以加个Image1(i).ZOrder，音乐文件时在，资源管理编辑里面res里面添加。程序工程属性窗口里有form1,模块一个，相关res文档一个。。
以上每个知识点均来自互联网。。。。由于需要在文库下载资料，该教程文件的上传纯属做得分任务，高手不要见笑。。。
代码如下：
Form1:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Dim i
Private Sub Form_Load()
Dim Modifiers As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
uVirtKey = vbKeyDelete
RegisterHotKey Me.hWnd, 1, Modifiers, uVirtKey
Form1.BorderStyle = 0
Form1.WindowState = 2
Dim ExsTyle As Long, crKey As Long, bAlpha As Byte, dwFlags As Long
ExsTyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
ExsTyle = ExsTyle Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, ExsTyle
dwFlags = 1 '2 所有颜色都透明，忽略 bAlpha 参数    1 只有 crKey 指定的颜色才透明
Me.BackColor = 123
crKey = Me.BackColor '窗体中那种颜色设为透明