Aplicacion.vb 578 B

12345678910111213141516
  1. Module Aplicacion
  2. 'Sub FormularioHijo(frmHijo As Form)
  3. ' If frmInicio.pnlCuerpo.Controls.Count > 0 Then
  4. ' frmInicio.pnlCuerpo.Controls.RemoveAt(0)
  5. ' End If
  6. ' frmHijo.TopLevel = False
  7. ' 'frmHijo.FormBorderStyle = FormBorderStyle.None
  8. ' frmHijo.Dock = DockStyle.Fill
  9. ' frmInicio.pnlCuerpo.Controls.Add(frmHijo)
  10. ' frmInicio.pnlCuerpo.Tag = frmHijo
  11. ' frmHijo.FormBorderStyle = FormBorderStyle.None
  12. ' frmHijo.BackColor = System.Drawing.Color.WhiteSmoke
  13. ' frmHijo.Show()
  14. 'End Sub
  15. End Module