Эфект прозрачности

[Morfius]

Я знаю что в XP можно делать форму или лейбл полупрозрачными, а вот как???
Или я ошибаюсь

[ALX_2002]

Option Explicit
'Api функции
'Определяет стиль окна
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 LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000

Private Sub Form_load()
Dim TRANS As Long
TRANS = 10 '(10 до 255)
SetWindowLong hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hWnd, 0, TRANS, LWA_ALPHA
End Sub

[Smert]

ALX_2002

Заодно и я скажу спасибо за совет

[BV]

Отдельно Label полупрозрачным сделать нельзя, его можно нарисовать самому, после наложить тем же SetDIBitsToDevice, вычислив предварительно прозрачность пикселей.