Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    
    Dim pPoint As IPoint
    Set pPoint = pMxDoc.CurrentLocation
    
    MsgBox "Latitude: " & pPoint.x & ", Latitude: " & pPoint.y
End Sub