用VB设计一个蝴蝶飞动的程序

因为这里只能上传一张图片，所以写了一个单张图片的。装载系列图片的我也写了，只是窗体初始化会很麻烦。以下代码是实现单张图片的随意飞舞程序，能做到：

1、碰到窗体边缘时，图片会自动改变飞舞的方向（题意中要求的“返回”，只能是在一条线上来回移动，本程序实现蝴蝶出发位置随意，能在窗体内四处飞舞），而且头部也会跟着改变方向

2、窗体改变大小时，蝴蝶不会消失不见，会立即在新的窗体内继续飞舞

'建一个Picture1控件，在它的属性对话框内设置Appearance=0 AutoRedraw=True AutoSize=True BorderStyle=0，然后在它的Picture中加载蝴蝶图片

'再建一个Picture2控件，在它的属性对话框内设置Appearance=0 AutoRedraw=False AutoSize=False BorderStyle=0，其他默认属性都不得改变

'Form的BackColor设为与蝴蝶图片的背景色一致，本程序中，即&H80000009&

'再加一个Timer1控件

Private Const Pi = 3.1415926535

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long,