[RESOLVED] Opacity increase slowly works but form is empty before it reaches max

[pourkascheff]

Hi all o7
Consider following code to achieve a sort of fade-in effect:

    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Me.Invoke(Sub()
                      While Me.Opacity < 0.9
                          Me.Opacity += 0.00001 'BRIGHT UP BACKGROUND
                      End While
                  End Sub)
    End Sub

It does the matter but the form is empty (All labels and pictures are invisible apparently) until while loop completes (I guess) How do I rectify this?
- Without Me.Invoke = not even fading.
- Tried "FormLoad" event = not even fading.
- Not a Timer control fan.
- Never tried "InitializeComponent()".