You need to update your browser to use the site.
Dim ctl As ControlDim ctlMDI As MdiClient' Loop through all of the form's controls looking' for the control of type MdiClient.For Each ctl In Me.Controls Try ' Attempt to cast the control to type MdiClient. ctlMDI = CType(ctl, MdiClient) ' Set the BackColor of the MdiClient control. ctlMDI.BackColor = Me.BackColor Catch exc As InvalidCastException ' Catch and ignore the error if casting failed. End TryNext' Display a child form to show this is still an MDI application.Dim frm As New Form2()frm.MdiParent = Mefrm.Show()
Article ID: 319417 - Last Review: 07/05/2012 23:26:00 - Revision: 4.0