Deplacer un formulaire sans barre de titre

Bonjour,

'API windows deplacer un form sans bordure
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Code a adapter pour VB.net

'VB6:Permet de deplacer une forme sans bordure
'-----------------------------------------

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
      If Button = vbLeftButton Then 
         ReleaseCapture 
         SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& 
     End If 
End Sub 

A voir