Public Class Form1
 
    Private Declare Function ReleaseCapture Lib "user32.dll" () As Int32
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
      ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal _
      lParam As Int32) As Int32
    Private Const WM_NCLBUTTONDOWN As Int32 = &HA1
    Private Const HTCAPTION As Int32 = 2
 
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        ReleaseCapture()
        SendMessage(Button1.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
    End Sub
 
End Class

#######
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