[S] Durchklickbare Form

Ich suche ein Script, mit dem ich meine Form durchklickbar machen kann und komplett durchsichtig.

Stichpunkte:
- Form durchsichtig bis auf Inhalt (Textboxen, Linien usw)
- Durchklickbar durch alles außer Inhalt (Textboxen, Linien usw)

mfg

VB.Net oder VB6?

Druchsichtig:

Modul:

Code:

---

Option Explicit

Declare Function GetWindowLong Lib "user32.dll" _
                Alias "GetWindowLongA" ( _
                ByVal hWnd As Long, _
                ByVal nIndex As Long) As Long
               
Declare Function SetWindowLong Lib "user32.dll" _
                Alias "SetWindowLongA" ( _
                ByVal hWnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long
               
Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
                ByVal hWnd As Long, _
                ByVal crKey As Long, _
                ByVal bAlpha As Byte, _
                ByVal dwFlags As Long) As Long

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000


Public Const LWA_ALPHA = &H2

Public Sub Mache_Transparent(hWnd As Long, Rate As Byte)

 
    Dim WinInfo As Long
 
    WinInfo = GetWindowLong(hWnd, GWL_EXSTYLE)
 
    If Rate < 255 Then
        WinInfo = WinInfo Or WS_EX_LAYERED
        SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
        SetLayeredWindowAttributes hWnd, 0, Rate, LWA_ALPHA
    Else

        WinInfo = WinInfo Xor WS_EX_LAYERED
        SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
    End If
End Sub

---

Aufrufen:

Code:

---

Private Sub Form_Load()
Call Mache_Transparent(Me.hWnd, 190) ' Hier kannst du einstellen wie Transparent es sein soll
End Sub

---

Bei durchklickbar kann ich dir nicht weiterhelfen.