可以取巧变通,如
Dim frm = forms("窗口2")frm.openmsgbox(frm.panel Is Nothing)Dim nfrm As new windows.forms.formDim cs = frm.panel.controlsFor i As Integer = cs.count-1 To 0 Step -1 nfrm.controls.add(cs(i))Nextnfrm.show