Function SetTransparentWindow(ByVal hWin As HWND, ByVal AlphaState As Integer) As Integer
Функция устанавливает прозрачность окна
hWin - хендл окна
AlphaState - значение прозрачности, может быть от 0 (полностью прозрачное) до 255(непрозрачное)
Windows
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,200,200)
SetTransparentWindow(hwnd,100)
Do
event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Easy CHM and documentation editor