هنا

[spyman]

السلام عليكم

هذا الموضوع استكمال لدورة الاكواد الشاملة

'11-اغلاق الفورم بشكل تدريجي

Public Class Form1

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

       Dim d As Double
       For d = 2 To 0 + 0.1 Step -0.1
           System.Threading.Thread.Sleep(30)
           Application.DoEvents()
           Me.Opacity = d
           Me.Refresh()
       Next d
       Me.Close()

   End Sub
End Class

'11-اغلاق الفورم بشكل تدريجي 

'12-اغلاق الفورم بشكل استعراضي

Imports System.Threading.Thread

Public Class Form1

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

       Dim i As Integer
       For i = 1 To 50
           Me.Width = Me.Width - i
           Me.Height = Me.Height - i
           Sleep(15)
       Next i

   End Sub
End Class

'12-اغلاق الفورم بشكل استعراضي