como mover form sin borde?

[ManOPlas]

bueno, tu tienes un form con la propiedad BorderStyle en -none. Lo que vamos a hacer es primero que nada hacer un label y llevalo al tope del programa, como si fuese el titulo(te recomiendo q le pongas en la propiedad Apeareance el valor -flat).

Bueno aqui va el codigo:
en las declaraciones generales pone esto:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal iparam As Long) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()

despues abajo de eso le das enter y pones esto:
Private Function Draguear(Form1 As Form)
ReleaseCapture
Call SendMessage(Form1.hwnd, &HA1, 2, 0&)
End Function

despues de eso en el Evento del label "MouseDown" le metes este codigo:

Call Draguear(Me)

y listo, fijate si te anda y dime ;)