Public Class Form1

    Private Sub AxMap1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

        
        AxMap1.Pan()



    End Sub
End Class