关于动态创建窗口有关问题，求指教

关于动态创建窗口问题，求指教RT,最近想要做一个客户端界面。要求可以动态添加已有的窗口，并完成相关消息处

关于动态创建窗口问题，求指教
RT,最近想要做一个客户端界面。
要求可以动态添加已有的窗口，并完成相关消息处理函数。
我在设计时有一个窗口form1
运行过程中，
定义了一个global 数组：setform（1 to 1000 ） as new form1
之后使用setform（1）.show 之类的就可以直接显示窗口。这些是在一个标准模块里做的。
但是在别的地方就无法调用，提示“对象不支持该属性或方法”，如何是好？
我现在想要复制已存在的一个窗口，然后可以反复调用复制出来的这个窗口。遇到的问题是调用不成功，求指点！

[解决办法]

VB code

Option ExplicitDim intP As IntegerPrivate Sub Command1_Click()    Dim frmObj As Form    Set frmObj = New Form1    intP = intP + 1    frmObj.Show    frmObj.Caption = "窗体" & CStr(intP)End SubPrivate Sub Form_Load()    Me.Caption = "窗体" & CStr(intP)End Sub
[解决办法]
每点一次，就会创建一个form1

VB codecommand1_clickdim f as new form1 'form1事实上是一个对象f.showend sub
[解决办法]
看看我的这个范例应该会对你有所启发
http://download.csdn.net/detail/SupermanKing/634322
[解决办法]
对于楼主想要新开一千个窗体表示担忧.
这肯定是设计上有问题.
[解决办法]
做为客户谁会出去打开成百上千的窗口，楼主你作为客户会去做这种事吗？