Option Explicit On
 
Imports System.Runtime.InteropServices
 
Public Class start
 
    <DllImport("user32.dll", SetLastError:=True)> Private Shared Function _
      [u]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
 
End Class

Es ist n?tig das Eure Antworten verst?ndlich und nachvollziehbar sind. (Umgebung: Visual Studio Proff.2010, WPF, XAML, Visual Basic 10, Wind.7)