Sub P_map_MousePressed (EventData As MouseEvent)
StartLeft = ImageView1.Left
StartTop = ImageView1.Top
StartX = EventData.X
StartY = EventData.Y
End Sub
Sub P_map_MouseDragged (EventData As MouseEvent)
ImageView1.Left = Min(0.5 * P_map.Width, StartLeft + 1.2 * (EventData.X - StartX))
ImageView1.Left = Max(-(ImageView1.Width - 0.5 * P_map.Width), ImageView1.Left)
ImageView1.Top = Min(0.5 * P_map.Height, StartTop + 1.2 * (EventData.Y - StartY))
ImageView1.Top = Max(-(ImageView1.Height - 0.5 * P_map.Height), ImageView1.Top)
End Sub