<DllImport("user32.dll", SetLastError:=True)> _
Private Shared Function GetWindowLong( _
     ByVal hWnd As IntPtr, _
     ByVal nIndex As Integer) As Integer
End Function
 
<DllImport("user32.dll")> _
Private Shared Function SetWindowLong( _
     ByVal hWnd As IntPtr, _
     ByVal nIndex As Integer, _
     ByVal dwNewLong As IntPtr) As Integer
End Function

    Private Declare Auto Function SetWindowLong Lib "User32.Dll" (ByVal hWnd As _
      IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
 
    Private Declare Auto Function GetWindowLong Lib "User32.Dll" (ByVal hWnd As _
      System.IntPtr, ByVal nIndex As Integer) As Integer

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist