فتج الفورم بطريقة جميله جدا - نسخة قابلة للطباعة

PHP كود :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Private Declare Function SetLayeredWindowAttributes _ 
Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As _ 
Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean 
Private Declare Function SetWindowLong Lib "user32" _ 
Alias "SetWindowLongA" (ByVal hwnd As Long, _ 
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function GetWindowLong Lib "user32" _ 
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Const LWA_ALPHA = 2 
Const GWL_EXSTYLE = (-20) 
Const WS_EX_LAYERED = &H80000 
Dim i As Integer 
Private Sub Form_Load() 
i = 0 
Timer1.Interval = 1 
End Sub 
Private Sub Timer1_Timer() 
i = i + 1 
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong _ 
(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED 
SetLayeredWindowAttributes hwnd, 0, i, LWA_ALPHA 
If i = 255 Then 
Timer1.Enabled = False 
End If