private Sub loadMarkers(mMap As GoogleMap,mMapName As String)
Private mOp As MarkerOptions
mOp.Initialize
Private bDs As BitmapDescriptor
Private bDf As BitmapDescriptorFactory
Private pin As Bitmap
Private AR As AndroidResources
Private SPin As BitmapDrawable
Private CPin As BitmapDrawable
SPin = AR.GetApplicationDrawable("tcar")
CPin = AR.GetApplicationDrawable("passpin")
pin = CPin.Bitmap
bDs = bDf.FromBitmap(pin)
mOp.Icon(bDs)
mOp.Anchor(mOp.GetAnchorU,mOp.GetAnchorV)
mOp.Position2(Starter.routeLat,Starter.routeLon)
Select mMapName
Case "M"
M2C = GMapEx.AddMarker(mMap, mOp)
Case "L"
M2L = GMapEx.AddMarker(mMap, mOp)
End Select
pin = SPin.Bitmap
bDs = bDf.FromBitmap(pin)
mOp.Icon(bDs)
mOp.Anchor(mOp.GetAnchorU,mOp.GetAnchorV/2)
mOp.Position2(Starter.gpslat,Starter.gpslon)
Private CLoc As Location
CLoc.Initialize2(Starter.routeLat,Starter.routeLon)
mOp.Rotate(Starter.gpsLoc.BearingTo(CLoc))
Select mMapName
Case "M"
M1C = GMapEx.AddMarker(mMap, mOp)
setMMarkers
Case "L"
M1L = GMapEx.AddMarker(mMap, mOp)
setLMarkers
End Select
End Sub