vb动态添加image控件！

有两种方法。
方法一：
向在窗体上添加一个image1控件，在属性窗口中将其Index属性设置丛袭为0（就是数没定义一个薯郑纳图像框控件数组），然后用下面代码：
Private Sub Command1_Click()
Load Image1(1)
With Image1(1)
.Stretch = True
.Picture = Image1(0)
.Top = 100
.Left = 100
.Visible = True
End With

Load Image1(2)
With Image1(2)
.Picture = Image1(0)
.Top = 100
.Left = 2000
.Visible = True
End With
End Sub
方法二：
Private Sub Command1_Click()
For i = 1 To 4
BqName = "Image" & i
Set Newlbl = Controls.Add("VB.image", BqName)
Newlbl.Move 3500, 500 * i, 1000, 360
Newlbl.Stretch = True
Controls(BqName).Picture = LoadPicture("D:\My Documents\My Pictures\a.jpg")
Newlbl.Visible = True
Next i
End Sub
更多VB代码可参阅我的博客：http://hi.baidu.com/zgmg/blog/item/3768b7efc1f540f1ce1b3ea8.html

在类中不御运能添加码拆知Image控件！
类中要加载图片可用：
Dim p(9) As IPictureDisp
Set p(0) = LoadPicture(app.path+"迟消\123.gif")