Public Class Form1
  Private Sub Form1_Load _
             (sender As Object, e As System.EventArgs) Handles Me.Load
  DoubleBuffered = True
  pb1.Image = New Bitmap("C:\...\IMG_1000.JPG")
  pan1.Parent = pb1
  End Sub
 
  Private Sub pb1_MouseDown _
             (sender As Object, e As System.Windows.Forms.MouseEventArgs) _
             Handles pb1.MouseDown
  pan1.Visible = False
  Select Case e.Button
    Case Windows.Forms.MouseButtons.Left
      pan1.Left -= 10
    Case Windows.Forms.MouseButtons.Right
      pan1.Left += 10
  End Select
  Application.DoEvents
  pan1.Visible = True
  End Sub
End Class