Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
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 Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ReleaseCapture
    Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub


Увидел у Вас на странице пример кода для перемещения окна не за заголовок 
и решил прислать свой вариант. 
Используется объект Image с именем imgMove. Объект может любой.
 
Public BarX
Public BarY

Private Sub imgMove_MouseDown(Button As Integer, Shift As Integer, _
                               X As Single, Y As Single) 
    If Button = 1 Then BarY = Y: BarX = X 
End Sub
 
Private Sub imgMove_MouseMove(Button As Integer, Shift As Integer, _
                               X As Single, Y As Single)
 
    If Button = 1 Then 
        frmMain.Top = frmMain.Top + Y - BarY
        frmMain.Left = frmMain.Left + X - BarX
    end if 
 
End Sub