Oppure più semplicemente usando il solo evento MouseMove e verificando la proprietà Button di e:
Sub TuoControl_MouseMove(sender As Object, e As MouseEventArgs) Handles TuoControl.MouseMove
If e.Button = MouseButtons.Left Then
'Muovi
End If
End Sub
Luca