Visual Basic - Mover formulario sin bordes

Necesito saber como mover un formulario que no tiene borde desde VB.

Bueno hay dos formas, con codigo VBasic, y con una Api de Windows
Yo supongo que si pusistes tu pregunta en el foro de API´s es por que deseas la API

SendMessage

se usa algo asi:

En un formulario teclea:

Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF012

Private Declare Sub ReleaseCapture Lib "User32" ()
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub

----------
Saludos
-
Mike79