4、窗体内创建imgYh（）图象控件数组，数组元素由焰火的图样数量而定，并把它们的Stretch属性一律改为True，把它们的Visible属性一律改为False，再把（图一）中的焰火图样，分别 “粘贴”装入各图象控件数组元素中。
5、用同样的方法把（图二）中的城市图景装入图象控件imgCd
完成好的窗体应如图三所示。
6、编写代码，清单如下：
Option Explicit
Dim Cdy As String
Dim LeftCorner, TopCormer As Single
Dim WidthOfYh, HeightOfYh
Dim P, q, x, j, dx, ax, ay As Integer
Private Sub Form_Load()
Label1.Caption = "您若喜欢以下文本框内的文字，请点击发送按钮!"
Text1.Text = "热烈欢呼上海市喜获举办2010年世界博览会！ 把上海世博会办成丰富、精彩、难忘的世博会！"
x = 10
ay = 1
dx = 1
P = 0
q = 0
TopCormer = 6000
Timer1.Interval = 200
Timer2.Interval = 20
End Sub
Private Sub Command1_Click()
Label1.Caption = "请在以下文本框内输入您喜欢的文字!(字数不限)"
Text1.Text = ""
Text1.SetFocus ' 使 Text1 获得焦点
End Sub
Private Sub Command2_Click()
Label2.Caption = Text1.Text
Cdy = Label2.Caption
WindowState = 2 ' 窗体最大化
frmYh.BackColor = vbBlack ' 窗体背景定为黑色
' 隐蔽4个控件
Command1.Visible = False
Command2.Visible = False
Label1.Visible = False
Text1.Visible = False
