Visual Basic - SOBRE MOVER UN FORMULARIO

¿Cómo permito a mis usuarios que muevan un formulario presionando sobre su superficie, del mismo modo que si lo hicieran sobre la barra de título??

Esto lo quiero porque muchos de mis formularios no tienen barra de título.

Gracias...

Te paso el codigo....

'estas variables ponlas arriba de todo en el formulario
Public PosX
Public PosY


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PosX = X
PosY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left + (X - PosX)
Me.Top = Me.Top + (Y - PosY)
End If
End Sub