سؤال حول النافذة الأبتدائية

اخي العزيز

يمكنك اضافة الأدة

Timer

و في الخصائص أجعل

Timer1.Enabled = False

ثم في

Declarations Section أكتب في الـ

Dim II As Long = 0

ثم أكتب الكود التالي

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

II = II + 1

If II < 150 Then

Me.Opacity = Me.Opacity + 0.01 '& "%")

End If

End Sub

غير رقم 150 لكي تسرع من غلق النافزة او اطالة المدة قبل الغلق

الشاشة سوف تغلق بشكل جميل

ارجو منك الدعاء

ان اجري كله دعاء فلا تبخس من اجري

جزاك الله خيرا وبارك لك في علمك الفكرة جميلة فعلا