Opening A Form With A Label

Hi everybody, I am trying to personalised the way Access looks and in this specific case I am trying to open a form with a label:

I: I have added a "space" on the hyperlink address property which is changing the mouse pointer to a "pointing finger" when the pointer is moved over the label,

II: I have added the following code on the move event of the label to highlight the label when the pointer is on the label:
Private Sub Option2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Option2.FontBold = True
End Sub

III: I have also added the code below on the click event of the label in order to open the form and change the pointer to an hourglass on loading time as the form can take up to 10 sec to open.
Private Sub Option2_Click()
DoCmd.Hourglass True 'Changes pointer to an hourglass
Dim stDocName As String
stDocName = "FrmSearchAssembly"
DoCmd.OpenForm stDocName
'DoCmd.Hourglass false 'Resets it to the arrow pointer
End Sub

Unfortunately the 3rd step is not working, the hourglass only appears after the form is loaded. Is anybody has any idea why and what should be done to get the hourglass to appear when the label is clicked until the form is fully loaded?