Public Function FindFormByType(ByVal t As Type) As Form

        Dim frm As Form

        For Each frm In TheFormBandeau.MdiChildren
            If frm.GetType Is t Then
                Return frm
            End If
        Next

        For Each frm In TheFormBandeau.OwnedForms
            If frm.GetType Is t Then
                Return frm
            End If
        Next

        Return Nothing

    End Function