Глобальные переменные

Option Explicit
 
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 Declare Function SetWindowLong Lib "user32" _
                         Alias "SetWindowLongW" ( _
                         ByVal hwnd As Long, _
                         ByVal nIndex As Long, _
                         ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" _
                         Alias "GetWindowLongW" ( _
                         ByVal hwnd As Long, _
                         ByVal nIndex As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" _
                         Alias "PlaySoundW" ( _
                         ByRef pszSound As Any, _
                         ByVal hModule As Long, _
                         ByVal dwFlags As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCursorPos Lib "user32" ( _
                         ByRef lpPoint As Any) As Long
Private Declare Function SendMessage Lib "user32" _
                         Alias "SendMessageW" ( _
                         ByVal hwnd As Long, _
                         ByVal wMsg As Long, _
                         ByVal wParam As Long, _
                         ByRef lParam As Any) As Long
Private Declare Function SetWindowPos Lib "user32" ( _
                         ByVal hwnd As Long, _
                         ByVal hWndInsertAfter As Long, _
                         ByVal x As Long, _
                         ByVal y As Long, _
                         ByVal cx As Long, _
                         ByVal cy As Long, _
                         ByVal wFlags As Long) As Long
 
Private Const WS_EX_LAYERED       As Long = &H80000
Private Const GWL_EXSTYLE         As Long = -20
Private Const ULW_ALPHA           As Long = &H2
Private Const LWA_COLORKEY        As Long = &H1
Private Const SND_ASYNC           As Long = &H1
Private Const SND_MEMORY          As Long = &H4
Private Const WM_NCLBUTTONDOWN    As Long = &HA1
Private Const HTCAPTION           As Long = 2
Private Const SWP_NOMOVE          As Long = &H2
Private Const SWP_NOSIZE          As Long = &H1
Private Const HWND_TOPMOST        As Long = -1
 
Private m_bSound() As Byte
 
Private Sub Form_Load()
    
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Me.hwnd, vbWhite, 0, LWA_COLORKEY
    m_bSound = LoadResData(101, "10")
    PlaySound m_bSound(0), 0, SND_ASYNC Or SND_MEMORY
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    
End Sub
 
Private Sub Form_MouseDown( _
            ByRef Button As Integer, _
            ByRef Shift As Integer, _
            ByRef x As Single, _
            ByRef y As Single)
    Dim curPos  As Currency
    
    If Button = vbLeftButton Then
    
        ReleaseCapture
        GetCursorPos curPos
        SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, curPos
    
    Else
        If MsgBox("Exit?", vbQuestion Or vbYesNo) = vbYes Then
            Unload Me
        End If
    End If
    
End Sub
 
Private Sub Form_Unload( _
            ByRef Cancel As Integer)
    PlaySound ByVal 0&, 0, 0
End Sub
 
Private Sub tmrFrame_Timer()
    Static s_lFrame As Long
    
    PaintPicture picSequence.Picture, 0, 0, , , s_lFrame * 400
    s_lFrame = (s_lFrame + 1) Mod 71
 
End Sub