Private Sub Form_Load()

   Dim X As Boolean

   X = False
   Me.Visible = X
   X = not Me.Visible

   Msgbox "Form should appear now"
   Me.Visible = X

   ' Works fine
End Sub