thank you very much Don,
but maybe we can use this for the easy solution. :D
but maybe we can use this for the easy solution. :D
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Select Case TrackBar1.Value
Case 5
MainMap.ZoomToMaxExtents()
Case Is > 5
MainMap.ZoomToMaxExtents()
MainMap.ZoomIn(TrackBar1.Value / 5 * MainMap.ZoomPercent)
Case Is < 5
MainMap.ZoomToMaxExtents()
MainMap.ZoomOut(5 / TrackBar1.Value * MainMap.ZoomPercent)
'MainMap.ZoomOut((1 - (TrackBar1.Value / 5)) * MainMap.ZoomPercent)
End Select
End Sub