Private WithEvents Image1 As Image'//要响应事件代码
'// 新建代码,可以放到command_click 或者 form_load 事件中
Set Image1 = Me.Controls.Add("vb.image", "image")
With Image1 '//下面是各个属性
.Left = 120
.Top = 150
.Picture = Form1.Icon
.Width = 255
.Height = 255
.Stretch = True
.Visible = True
End With