Form_Splash

Dim Transparent As Byte
Dim Appear As Boolean
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
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 SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
 
Private Sub Form_Load()
Dim aStyle As Long
Appear = True
aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
aStyle = aStyle Or WS_EX_LAYERED
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, aStyle)
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
If Appear = True Then Transparent = Transparent + 20 Else Transparent = Transparent - 20
Call SetLayeredWindowAttributes(Me.hWnd, 0, Transparent, LWA_ALPHA)
If Transparent = 240 Then
Timer2.Enabled = True
Timer1.Enabled = False
Transparent = 255
End If
If Appear = False And Transparent = 15 Then
Timer1.Enabled = False
Transparent = 0
Me.Hide
Form2.Show
End If
End Sub
 
Private Sub Timer2_Timer()
Timer2.Enabled = False
Appear = False
Timer1.Enabled = True
End Sub