主题：[求助]最大化到面板还原能脱离面板

照抄例子都不会么？3楼，9楼。

Dim frmname As String="窗口"
Dim frm As New Windows.Forms.Form
frm.Visible=False
frm.name =frmname
frm.text =frmname
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Select

frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
vars("frmtop")=frm.Top
vars("frmleft")=frm.left
frm.Visible=True
frm.TopLevel =True
Dim btn As WinForm.Button=e.Form.CreateControl("btn1",ControlTypeEnum.Button)
btn.text="1111"
frm.TopLevel =False
frm.Parent = e.Form.Controls("Panel1").basecontrol
frm.Show
'AddHandler frm.Shown, AddressOf frm_Shown
AddHandler frm.sizeChanged, AddressOf frm_sizeChanged
'vars("F") = frm

If newforms.ContainsKey("窗口")=False Then
    newforms.add("窗口",frm)
End If