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           'Window2000新的拓展定义，产生透明窗体
Private Const GWL_EXSTYLE = (-20)               '设定窗口拓展风格
Private Const LWA_ALPHA = &H2

Private Sub Form_Load()
Dim rtn As Long

rtn = WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn                     '(-20)为新的拓展风格,rtn为指定的替换值

'hwnd为透明窗体的句柄;crKey为掩码的颜色;bAlpha为不透明度,取值范围是（0,255）,其中0代表全透明,255代表不透明;dwFlags是透明方式，可以取两个值:
'当取值为LWA_ALPHA时,crKey参数无效,bAlpha参数有效
'当取值为LWA_COLORKEY时,窗体中的所有颜色为crKey的地方将变为透明,bAlpha参数无效
SetLayeredWindowAttributes hwnd, 0, CInt(HScroll1.Value), LWA_ALPHA

进来编了一个浏览器，调用了api使窗体有透明效果。但没有加入这段代码前，当浏览器打开或最小化时，任务栏是有图标的。但增加了这段代码后，打开时任务栏没有图标！在最小化是图标是显示在任务栏的左上方（即在window“开始”菜单的正上方），而且当其他应用程序的窗口打开时，这个图标有时会被遮住，看不到。

这是怎么回事，怎么才能像平常的应用程序那样在任务栏里显示图标。

各位高手帮帮忙，实在没分了

我初二，可能要11月4，5号就快周末才能回帖，各位高手帮帮忙，谢了

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED