Thx for your answer, i tried with a lower resolution and more pictures have the map loaded but still not all of them. So i tried the loadtilesforsnapshot method, but the tilesloaded event never fires.
AxMap1.LoadTilesForSnapshot(ex, 1000, shpidx, tkTileProvider.OpenCycleMap)
AxMap1.LoadTilesForSnapshot(ex, 1000, shpidx, tkTileProvider.OpenCycleMap)
Private Sub AxMap1_TilesLoaded(sender As System.Object, e As AxMapWinGIS._DMapEvents_TilesLoadedEvent) Handles AxMap1.TilesLoaded
Dim image As New MapWinGIS.Image()
Dim ex As MapWinGIS.Extents
ex = AxMap1.Extents
image = AxMap1.SnapShot3(ex.xMin, ex.xMax, ex.yMax, ex.yMin, 1000)
image.Save(......................)
End Sub