如何增加图片框数量?

Question

下面是在窗体上有一个可以存放图片框的代码,但只有一个.
如何才能增加这样的图片框数量?
即在一个窗体上,放置多个这样的图片框要怎样做?如何改编下面的代码?
Dim OpenFileName As String
Private RegPrivate Sub Command1_Click()
    On Error Resume Next
    CommonDialog1.DialogTitle = "打开文件"
    CommonDialog1.Filter = "所有支持的格式" + _
                            "(*.bmp;*.jpg;*.gif;*.pcx;*.ico)|" + _
                            "*.bmp;*.jpg;*.gif;*.pcx;*.ico)"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
        If Err <> 32755 Then
            OpenFileName = CommonDialog1.FileName
            Picture1.Picture = LoadPicture(OpenFileName)
        End If
    End If
End SubPrivate Sub Command2_Click()
Call Reg.RegWrite("HKLM\SOFTWARE\PIC\Lj", OpenFileName, "REG_SZ")
End SubPrivate Sub Form_Load()
On Error Resume Next
Set Reg = New IWshShell_Class
If Reg.RegRead("HKLM\SOFTWARE\PIC\Lj") = "" Then
Exit Sub
End If
Picture1.Picture = LoadPicture(Reg.RegRead("HKLM\SOFTWARE\PIC\Lj"))
CommonDialog1.CancelError = True
End Sub

Answer 1

定义 一个 IWshShell_Class 数组每个对应一个图片