Проверка - Находится ли контрол в заголовке формы

Private Function IsControlInHeader(ctrlName As String) As Boolean
'Проверка находится ли контрол в заголовке формы
Dim HeaderCtrl As Control
    For Each HeaderCtrl In Me.FormHeader.Controls
        If HeaderCtrl.Name = ctrlName Then
            IsControlInHeader = True
            Exit Function
        End If
    Next HeaderCtrl
End Function