Custom form icon load delay

[xaviermobius]

I have a custom icon which i am using for my application and its forms - i have ticked this property on within the startup panel. The code below refreshes the icon on startup and it called by the autoexec macro.

Public Function autoexecloader()
    Dim s As String
    Dim dbs As Object

    Set dbs = CurrentDb
    s = CurrentProject.Path & "\Files\icon.ico"
    dbs.Properties("AppIcon") = s
    Application.RefreshTitleBar
End Function

However, when the first form loads and begin its procedure it loads with the default MS Access icon - once the procedure has been completed the icon updates to the custom icon.....

A small but annoying glitch, any suggestions as to why this happens and how I could rework it.

Thanks in advance.