PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.Opacity = 0
EndSubPrivateSub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Shown
Me.Visible = FalseMe.Opacity = 1
EndSub