[dasktop]

كود :

For a as Byte = 0 To 10

system.Threading.Thread.sleep(200)

Application.DoEvents()

Me.Opactiy = a / 10

Next
End sub

كود اضهار الفروم بطريقة شفافة وبطيئة ويتم التحكم من خلال a / 10 غير رقم 10 الى اي رقم