Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripButton.Click
        Dim TT As Form. = GetForm("MainForm.Form3")
        For Each frmTmp In Me.MdiChildren
            If frmTmp.GetType() Is TT.GetType() Then
                frmTmp.Activate()
                frmTmp.WindowState = FormWindowState.Normal
                Exit Sub
            End If
        Next

        TT.MdiParent = Me
        TT.TopMost = True
        TT.Show()
    End Sub
 
    Private Function GetForm(ByVal FormName As String) As Form
        Dim t As Type = Type.GetType(FormName)

        Dim o As bject = System.Activator.CreateInstance(t)
        Return CType(o, Form)
    End Function