Programalama > VISUAL BASIC.NET

form kapanırken fade away;

forma name ozelligi btnexit olan bir buton surukleyelip  butonun click olayına dim d as double ile baslayan kodları ekleyelin

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndexit.Click
        Dim d As Double
        For d = 1 To 0 + 0.2 Step -0.2
            System.Threading.Thread.Sleep(50)
            Application.DoEvents()
            Me.Opacity = d
            Me.Refresh()
        Next d
        Environment.Exit(0)
End Sub

form acılırken fade away;

form un load olayına

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 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
End Sub