17-10-12, 08:22 PM
كاتب الموضوع : Marwan
أنشئ مشروعا جديدا من نوع Windows Forms ثم أضف زرا للفورم و في الحدث Click للزر أضف الكود التالي:كود :
[align=left]Dim iCount As Integer
For iCount = 90 To 10 Step -10
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()
[/align]أو يمكنك كتابة الكود في الحدث FormClosing للفورم مع حذف السطر الأخير