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

Question

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

Answer 1

Option Explicit
Dim intP As Integer
Private 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

Answer 2

表示不是很明白，假如我要点击一个按钮，再次调用复制了的窗体frmobj，
比如：
public sub cmd_click()
这里面要showfrmobj窗口
end sub
如果只是一个窗口的话，这样很好办。但是我如果要做个客户端，就可能需要成百上千的窗口。。
所以我比较头疼的地方就是
Dim frmObj As Form
这两句，不可能每次都重新声明一个同样的变量啊。。求继续指点。。
就是想要反复调用复制来的窗口。而且会复制很多。

Answer 3

本帖最后由 bcrun 于 2011-11-20 10:39:59 编辑

  

Answer 4

看看我的这个范例应该会对你有所启发
http://download.csdn.net/detail/SupermanKing/634322