可以动态生成。如代码

Dim frm As New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 500
frm.height = 500

Dim pic As new Windows.Forms.PictureBox
pic.Image = getImage("d:\\test.jpg")
pic.width = 200
pic.height = 100
pic.Top = 10
pic.left =  10
frm.Controls.Add(pic)

Dim web As new Windows.Forms.Webbrowser
web.width = 500
web.height = 200
web.Top = 150
web.left =  10

web.Navigate("http://www.foxtable.com")
frm.Controls.Add(web)

frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2

或者，写成类，如，你new多少个都可以

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96811&skin=0

要这样写

Dim tbl As WinForm.Table
forms("窗口1").Open
tbl = forms("窗口1").createTable("test" & format(Date.now, "HHmmss"), "表A", True)
tbl.SetBounds(10, 10, 600, 400)
Dim frm As New Windows.Forms.Form
frm.Text = "test"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Show
forms("窗口1").AddControl(tbl)
frm.Controls.add(tbl.basecontrol)
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=79503&authorid=0&page=0&star=1

谢谢回复。

就是说，单纯地动态绑定表不行，必须从动态生成窗口的表控件开始，我的理解对吗？

>用一个窗口专门用来生成表格就好了。

这样生成的表格怎么绑定到其他窗口的表控件呢？

谢谢。还有两个问题。

>tbl = forms("窗口1").createTable("test" & format(Date.now, "HHmmss"), "表A", True)
不理解这里要 & format(Date.now, "HHmmss") 的理由。我想用输入框绑定动态生成的表的列，怎么参照表控件的名称？

>tbl.SetBounds(10, 10, 600, 400)
怎么才能设置成停靠为Fill？

tbl.dock = 5