- Module Aplicacion
- 'Sub FormularioHijo(frmHijo As Form)
- ' If frmInicio.pnlCuerpo.Controls.Count > 0 Then
- ' frmInicio.pnlCuerpo.Controls.RemoveAt(0)
- ' End If
- ' frmHijo.TopLevel = False
- ' 'frmHijo.FormBorderStyle = FormBorderStyle.None
- ' frmHijo.Dock = DockStyle.Fill
- ' frmInicio.pnlCuerpo.Controls.Add(frmHijo)
- ' frmInicio.pnlCuerpo.Tag = frmHijo
- ' frmHijo.FormBorderStyle = FormBorderStyle.None
- ' frmHijo.BackColor = System.Drawing.Color.WhiteSmoke
- ' frmHijo.Show()
- 'End Sub
- End Module
|