Mover un control picturebox con el mouse

                 
En el form colocar un control picturebox y cargarle una imagen cualquiera y una caja de dialogo de abrir.
Codigo:

Public Class Form1
    Dim izquierda As Integer
    Dim alto As Integer


Código para cargar una imagen
 Private Sub pic_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pic.DoubleClick
        On Error GoTo ErrorHandler
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then pic.Image =      Image.FromFile(open.FileName)
        Exit Sub
ErrorHandler:
        MsgBox("Se ha generado un error" & Chr(13) & "No se pudo leer el archivo: " + open.SafeFileName, MsgBoxStyle.Information, "Aviso")
        Resume Next
    End Sub

    Private Sub pic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic.MouseDown
        izquierda = e.X
        alto = e.Y
    End Sub

    Private Sub pic_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Right Then
            pic.Location = New Point(pic.Left + e.X - izquierda, pic.Top + e.Y - alto)
        End If
    End Sub
End Class