Coloca esto al principio del proyecto y punto.
'===============================================================
'CONSTANTES PARA FORMULARIO MÓVIL SIN BARRA
'===============================================================
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" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Un saludo.
MERCURY7K2