BoldDeskPremium customer service software with affordable pricing: $10 for 3 agents. Try it for free.
Dim frm As Form = CType(IIf(TypeOf Me.ActiveMdiChild Is Form, Me.ActiveMdiChild, Nothing), Form)
Dim m_editControl As EditControl = New EditControl()
m_editControl.Dock = DockStyle.Fill
frm.Controls.Add(m_editControl)