Dim MyColor As Int=Colors.Blue
Dim TempMap As Map
TempMap.Initialize
For prog =0 To 10
Dim bmp As Bitmap = CreateNumberedBitmap(prog, MyColor)
Dim lat As Float=45.57256+prog*.0001
Dim m As Marker=gmap.AddMarker3(lat,8.93087, "", bmp)
gextra.SetGroundAnchor(m, 0.5, 0.5)
gextra.SetSelectedMarker(m)
m.Title=prog
m.Snippet=""
TempMap.Put(prog,m)
Next
Return
Sub CreateNumberedBitmap(Number As Int, MyColor As Int) As B4XBitmap
Dim size As Int = 32
Dim c As B4XCanvas
Dim xview As B4XView = xui.CreatePanel("")
xview.SetLayoutAnimated(0, 0, 0, size, size)
c.Initialize(xview)
Dim strokeColor As Int = Colors.White
c.DrawCircle(size / 2, size / 2, size / 2 - 3dip, MyColor, True, 0)
c.DrawCircle(size / 2, size / 2, size / 2 - 3dip, strokeColor, False, 2dip)
Dim fontSize As Float = 14
Dim MyFont As Font = Font.CreateNewBold(fontSize)
Dim yOffset As Float = fontSize / 3
c.DrawText(Number, size / 2, size / 2 + yOffset, MyFont, Colors.White, "CENTER")
Return c.CreateBitmap
End Sub