[RaggiTech]

كاتب الموضوع : 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]

الكود ببساطة يقوم بزيادة شفافية الفورم في كل حلقة من حلقات التركيب For و يقوم بتعطيل المسار لمدة 50 جزء من الثانية لزيادة بطئ عملية اخفاء الفورم. ثم نغلق الفورم بعد انتهاء الحلقة.

أو يمكنك كتابة الكود في الحدث FormClosing للفورم مع حذف السطر الأخير