VisualBasic.Net / Formu Efektli Başlatma

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[/SIZE][/FONT][/CENTER]
[FONT=Trebuchet MS][SIZE=6]
[CENTER] 
 Dim d As Double
        For d = 0 To 1 - 0.1 Step +0.1
            System.Threading.Thread.Sleep(50)
            Application.DoEvents()
            Me.Opacity = d
            Me.Refresh()
            Me.Opacity = 100
        Next d