帮小弟个忙，我会给分给大家的！谢谢了！：）

Question

小弟先在这里谢谢上一次帮我顶贴和投票的朋友，上次的贴子我已经结贴了，经过大家每个人神圣的投票，小弟现在已经进行前“30”名了，现排名“28”，希望大家多多跟贴，帮小弟再投几票，小弟会在最短的时间内散分给大家。
小弟的结婚照ＰＫ大赛投票地址：（每两个小时可以投票一次）http://love.sese.com.cn/View.asp?id=240希望大家能帮小弟多投几票，投了票别忘了跟贴，小弟一定会给分给大家的！：）谢谢了。

Answer 1

 '透明掉窗口特定的颜色 /半透明窗体---函数声明>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  '其中hwnd是透明窗体的句柄，crKey为颜色值，bAlpha是透明度，
  '取值范围是[0,255]，dwFlags是透明方式，可以取两个值：
  
  '当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效；
  '当取值为LWA_COLORKEY时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明
  
  '－－这个功能很有用：我们不必再为建立
  '不规则形状的窗体而调用一大堆区域分析、创建、合并函数了，只需指定透明处的颜色'
  '值即可，哈哈哈哈！请看具体代码。
  Public Const WS_EX_LAYERED = &H80000
  Public Const GWL_EXSTYLE = (-20)
  Public Const LWA_ALPHA = &H2
  Public Const LWA_COLORKEY = &H1
'写一个函数Public Sub SetFormColorTransparnct(myfrm As Form) 'Transparnct透明
    '透明掉窗口特定的颜色    Dim rtn As Long    rtn = GetWindowLong(myfrm.hwnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong myfrm.hwnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes myfrm.hwnd, &H80C0FF, 0, LWA_COLORKEY'&H80C0FF为透明掉的颜色的16进制数
End Sub