VB6.0中，如何动态添加控件至指定的PictureBox控件中？

可以使用Load方法

语法为:Load object

要求必须预先创建一个控件数组

例如，现在你已经创建了一个command的控件数组，它的name为cmd

(方法请自行百度)

开始的一个元素的调用方法为

Cmd1(0).属性

其中()内的为 *** 作元素的下标。只要Load对应的数组元素。即可完成元素的载入，载入成功后可以当做一个普通控件来 *** 作。

此时如果需要添加多个，请使用For循环+Load语句实现

For i=1 to 20

Load Cmd(i)

Cmd(i).visible=ture

....

....

next i

我不是[六月VB飞雪]

vb6中可以动态添加控件，不用控件数组：

object.add (progid, name, container)

参数说明：

object:必需。一个对象表达式，其值是“应用于”列表中的一个对象。

progid:必需。一个标识控件的字符串。大多数控件的 progid 都可通过查看对象浏览器来决定。控件的 progid 是由控件的库和类组成的。例如，commandbutton 控件的 progid 是 vb.commandbutton。在progid 与对象浏览器中所显示的不一样的情况下，visual basic 将显示一个包括正确 progid 的错误信息。

name:必要。一个字符串，用来标识集合的成员。

container:可选。一个对象引用，它指定控件的容器。如果没有指定或为null，缺省值为 controls 集合所属的容器。通过指定该参数，可以把一个控件放置在任何现存的容器控件（如 frame 控件）中。用户控件或 activex 文档也可以作为一个容器。

举例：(在picture1上面添加一个commandbutton)

private sub form_load()

form1.controls.add "vb.commandbutton", "cmdok", picture1

with form1!cmdok

.visible = true

.width = 500

.caption = "确认(&y)"

end with

end sub

---