Вот решил я попробовать состряпать прозрачное окно на vb6...
но... не в APIBrowser ни хде-то еще ничего нету
Но нашел

Private Declare Function SetLayered Lib "User32" _
Alias "SetLayeredWindowAttributes" _
(ByVal hWnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean

Private Declare Function SetWindowLong Lib "User32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _
As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
q = SetWindowLong(Me.hWnd, -20, 524288) ' Or 128) - если нужна форма Fixed Dialog
End Seb

Sub SetTrans(Lar as Integer) ' от 0 до 255, коефициент прозрачности.
Dim q, w
w = SetLayered(Me.hWnd, vbRed, Lar, 2)
End Sub

Private Sub Slider1_Scroll()
SetTrans Scroll1.Value
End Sub

Надеюсь, пригодится

Здравствуйте, werty, Вы писали:

Ты только забыл добавить что этот код

Windows 2000 and XP systems only