Attribute VB_Name = "Module1"
'“動畫_透明處理”的BAS模塊
Option Explicit
'處理位圖的API函數
'hDestDC：目標圖象的句柄
'x,y：目標圖象的位置
'nWidth,nHeight：源圖象或MASK圖象的寬度與高度
'hSrcDC：源圖象或MASK圖象的句柄
'xSrc,ySrc：源圖象或MASK圖象的位置
'dwRop：作圖方式
'以象素為坐標單位
Declare Function BitBlt Lib "gdi32" _
    (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _
    ByVal dwRop As Long) As Long

Public Const SRCAND = &H8800C6      '圖象之間作AND運算
Public Const SRCINVERT = &H660046   '圖象之間作Xor運算

'播放聲音的API函數
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Const SND_ASYNC = &H1        '非同步演奏，在演奏的同時作其他事情
Public Const SND_LOOP = &H8         '重復播放