مرحبا بكم فى موقعكم التعليمى مفيدا ومستفيدا

الاختفاء التدريجى للفورم

اذهب الى الأسفل

الاختفاء التدريجى للفورم

مُساهمة من طرف sayed في الجمعة مارس 15, 2013 2:49 pm

شوف معايا الكود دة
وجرب
Dim iCount As Integer

For iCount = 900 To 10 Step -10
Me.Opacity = iCount / 1000
Me.Refresh
(Threading.Thread.Sleep(50
Next

Me.Close
Very Happy

_________________
عام سعيد وكل عام وانتم على خير والى الله أقرب
avatar
sayed
Admin

عدد المساهمات : 190
تاريخ التسجيل : 10/10/2011
العمر : 62
الموقع : computer.hooxs.com

http://computer.hooxs.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى