这个意思？
Dim frm As New Windows.Forms.Form
frm.Visible=False
frm.name = "窗口3"
frm.Text = "窗口3"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.mdiparent = basemainform
frm.controlbox=False
frm.Select
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
'vars("窗口").add(frm, frm.text)
'AddHandler frm.Closing, AddressOf frm_Closing
frm.Visible=True
'frm.TopLevel =True
Dim btn As WinForm.Button=e.Form.CreateControl("btn1",ControlTypeEnum.Button)
btn.text="1111"
frm.controls.add(btn.basecontrol)
'AddHandler frm.Shown, AddressOf frm_Shown
AddHandler frm.Load,AddressOf Form_Load
frm.Show
加好友 
发短信
Post By：2018/1/29 21:25:00 [显示全部帖子]
