15 Ocak 2012 Pazar

Formu Yavaş Yavaş Karartma

Posted by Unknown On 00:22 No comments

Sub FormFade(frm As Form)
' Formu yavas yavas karartir

For icolVal% = 255 To 0 Step -1
DoEvents
frm.BackColor = RGB(icolVal%, icolVal%, icolVal%)
Next icolVal%
End Sub

Categories:

0 yorum:

Yorum Gönder