Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
      ByVal hwnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal _
      lParam As IntPtr) As Int32
    Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32
 
    Private Const HTBOTTOM As Int32 = 15
    Private Const HTBOTTOMLEFT As Int32 = 16
    Private Const HTBOTTOMRIGHT As Int32 = 17
    Private Const WM_NCLBUTTONDOWN As Int32 = &HA1
 
    Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles RechterButton.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTBOTTOMRIGHT, IntPtr.Zero)
    End Sub
 
    Private Sub LinkerButton_MouseDown(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.MouseEventArgs) Handles LinkerButton.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTBOTTOMLEFT, IntPtr.Zero)
    End Sub
 
    Private Sub MittlererButton_MouseDown(ByVal sender As System.Object, ByVal _
      e As System.Windows.Forms.MouseEventArgs) Handles _
      MittlererButton.MouseDown
        ReleaseCapture()
        SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTBOTTOM, IntPtr.Zero)
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co