Drag PictureBox at Runtime in Visual Basic

The source codes below shows how you can drag a picturebox at runtime. To test this, copy and paste code to the declaration section of a form with a picturebox on it.

Private dblX As Double, dblY As Double
Private bolMove As Boolean

Private Sub cmdClose_Click()
   Unload Me
End Sub

Private Sub Picture1_MouseDown(Button As Integer, _
                              Shift As Integer, _
                              X As Single, Y As Single)
   If Button = 1 And Not bolMove Then
       bolMove = True
       dblX = X
       dblY = Y
   End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, _
                              Shift As Integer, _
                              X As Single, Y As Single)
   Dim tmpy As Integer
   Dim tmpx As Integer

   If bolMove Then
       If dblY > Y Then 'scroll up
           tmpy = (dblY - Y) '* 100
           Me.Picture1.Top = Me.Picture1.Top - tmpy
       Else 'scroll down
           tmpy = (Y - dblY) '* 100
           Me.Picture1.Top = Me.Picture1.Top + tmpy
       End If
       If dblX > X Then 'scroll right
           tmpx = (dblX - X) '* 100
           Me.Picture1.Left = Me.Picture1.Left - tmpx
       Else 'scroll left
           tmpx = (X - dblX) '* 100
           Me.Picture1.Left = Me.Picture1.Left + tmpx
       End If
   End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, _
                            Shift As Integer, _
                            X As Single, Y As Single)
   bolMove = False
End Sub