01.
02.Option Explicit
03.
04.Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
05.Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
06.Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
07.
08.Private Const GWL_EXSTYLE = (-20)
09.Private Const LWA_ALPHA = &H2
10.Private Const WS_EX_LAYERED = &H80000
11.
12.Public Function MakeTransparent(ByVal hWnd As Long, Perc As Integer) As Long
13.Dim Msg As Long
14.On Error Resume Next
15.If Perc < 0 Or Perc > 255 Then
16.MakeTransparent = 1
17.Else
18.Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
19.Msg = Msg Or WS_EX_LAYERED
20.SetWindowLong hWnd, GWL_EXSTYLE, Msg
21.SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA
22.MakeTransparent = 0
23.End If
24.If Err Then
25.MakeTransparent = 2
26.End If
27.End Function
28.
29.
30.Private Sub Command1_Click()
31.MakeTransparent Me.hWnd, 200
32.End Sub
