هنا

[spyman]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة (المواضيع السابقة)

'9-اغلاق الفورم بشكل مميز

Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        For Fade = 1.1 To 0.0 Step -0.1
            Me.Opacity = Fade
            Me.Refresh()
            Threading.Thread.Sleep(100)
        Next

    End Sub
End Class

'9-اغلاق الفورم بشكل مميز 

'10- اغلاق الفورم بصورة مميزة​

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim iCount As Integer
        For iCount = 90 To 10 Step -10
            Me.Opacity = iCount / 100
            Me.Refresh()
            Threading.Thread.Sleep(50)
        Next
        Me.Close()


    End Sub
End Class

'10- اغلاق الفورم بصورة مميزة