Form Title Bar always greyed out

[AlexanderBB]

Puzzled again, it's just a minor thing but bugs me and I'd like to find an answer !

The following is in a module and sets up a Form to do stuff with.

Sub UserUpdates()
Dim UserDat As Variant, uIndex As Integer, UserSubmission As Variant
UserDat = GetTheData  'Read in data from Website
With frmAmend
    Do
        If UserDat(uIndex) > "" Then 'fill form textboxes and pass variables over
                UserSubmission = DecodeMe(UserDat(uIndex))
                .txtSheet = .fSheetName(UserDat(uIndex))
                .txtLine = .fSheetRow(UserDat(uIndex))
                .txtPrefix = ExtractThisItem(UserSubmission(QuickCC(PrefixColBySheet(.txtSheet)) - 1))
                Call .LoadVars(uIndex, UserDat, UserSubmission)
                .PopulateIt
                Exit Do
            Else
                uIndex = uIndex + 1
        End If
    Loop
    .Show
    AppActivate .Caption
End With
End Sub

When the Form opens the title bar is always greyed out until some part of the Form is clicked on.
I've spent hours trying to see why and can't figure it out. Can anyone help?

Thanks, ABB

 

[mikerickson]

Just guessing, but GetTheData may not be returning the focus completely to Excel.

 

[AlexanderBB]

Mike, sometimes I despair! Spend ages looking for the cause, then carried on with more development... and suddenly noticed the Title bar
does have focus, all is working as expected. I can't make it not work !
But thanks for your thoughts.