09-05-13, 02:27 AM
السلام عليكم
اخي الكريم ،، اضف (تايمر) للفورم وليكن اسمه Timer1
ثم اضف الكود بدون تعديل
اخي الكريم ،، اضف (تايمر) للفورم وليكن اسمه Timer1
ثم اضف الكود بدون تعديل
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.5
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity = Me.Opacity + 0.01