广东第一峰景区地图:如何编程实现在透明窗体上显示文字，效果就像千千静听的歌词秀，能够背景透明显示歌词

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 Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Private Sub Command1_Click()
Dim rtn As Long
Me.Picture = LoadPicture("")
Me.BackColor = &H80000
BorderStyler = 0
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, &H80000, 0, LWA_COLORKEY '将扣去窗口中的蓝色

End Sub

'其中hwnd是透明窗体的句柄，
'crKey为颜色值，bAlpha是透明度，
'取值范围是[0,255]，dwFlags是透明方式
'，可以取两个值：当取值为LWA_ALPHA时
'，crKey参数无效，bAlpha参数有效；
'当取值为LWA_COLORKEY时，
'bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明
'－－这个功能很有用：
'hwnd ,crKey ,bAlpha ,dwFlags
Private Sub Form_Load()

Dim rtn As Long
Me.Picture = LoadPicture("02.jpg")
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
crKey = 0
bAlpha = 300
SetLayeredWindowAttributes hwnd, 8, 120, LWA_ALPHA

End Sub