29-10-13, 04:04 PM
السلام عليكم ورحمة الله وبركاته
كود يقوم بفتح الفورم بصورة بطيئة وجميله وايضآ سهل جدآ
كود يقوم بفتح الفورم بصورة بطيئة وجميله وايضآ سهل جدآ
كود :
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
For a As Short = 10 To 0 Step -1
System.Threading.Thread.Sleep(200)
Application.DoEvents()
Me.Opacity = a / 10
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For a As Byte = 0 To 10
System.Threading.Thread.Sleep(200)
Application.DoEvents()
Me.Opacity = a / 10
Next
End Sub