急需解决！！！！！

Question

如何在代码中动态生成image框？？？？？

Answer 1

Private WithEvents NewImage As ImagePrivate Sub Command1_Click()
    If NewButton Is Nothing Then
        Set NewImage = _
            Controls.Add("VB.Image", _
            "cmdNew", Me)
        NewImage.Move 100, 100
        NewImage.Picture = LoadPicture("001.bmp")
        NewImage.Visible = True
    End If
End Sub

Answer 2

也可以在窗体上先放一个image，设成控件数组，然后每次动态生成时用load imege1(index)即可

Answer 3

请问以下方法为何不行？
private sub form_load()
  set newimage=controls.add("vb.image","newimage")
  with newimage
     .visible=true
     .width=1000
     .height=1000
     .left=3000
     .top=1000
  end with
end sub
我不想在image中显示任何图片，只是利用image去圈选form的picture，然后用image_click激发下一个事件
另外，Private WithEvents NewImage As Image是什么意思，有什么功能吗？
我是新手，请耐心指教。3ku

Answer 4

在用set 以前，必须进行声明。
private WithEvents NewImage as image 就是把newimage 声明为image类型.withevents是说
newimage 将处理所有和image相关联的事件。