' añado el panel del otro formulario en el evento load del padre... o cuando quieras...
Private Sub formP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
if apadrinar_Controles( form2.panelH)=true then
añade=""
else
añade= "no "
end if
msgbox ("El panel " & añade & "se añadió al dormulario...")
end sub
' esta función va en el formulario padre si se desea que fuera común para pasar controles de un formulario a otro, debería añadirse la referencia del padre en otro parámetro (hasta el nivel de formulario) y sustituírlo por ME, y colocar la función en un módulo compartido.
public function apadrinar_Controles( ctr as Control) as boolean
on error goto fallo ' por ejemplo cuando le pasas un formulario. Con try-catch, puedes interceptar el 'message'
me.controls.add(Ctype(ctr, Control) ' en el ejemplo ctr sería: form2.panelH
ctr.left= posicion_deseadaX
ctr.top= posicion_deseadaY
ctr.width=tamaño_DeseadoX
ctr.Height= tamaño_DeseadoY
return true
exit function
fallo:
return false
end function