Problem....
06.07.2005 22:14:18
AS
Was ist an diesem Code falsch?!!!
Ich habe alles declaret - das ist nicht das Problem
Public
Sub Semitransparent(ByVal TransparenceLevel As Integer)
Dim lngWinIdx As Long
hwnd = GetActiveWindow
lngWinIdx = GetWindowLong(hwnd, GWL_EXSTYLE)
SetLayeredWindowAttributes hwnd, 0, TransparenceLevel, LWA_ALPHA
End Sub
Es will nicht tranparent werden
Vielen Dank im Vorraus
AS
Anzeige