Sub Globals
Dim Icon As BitmapDrawable
End Sub
Sub GPS_LocationChanged (Location1 As Location)
Dim geopoint1 As GeoPoint
geopoint1.Initialize(Location1.Latitude,Location1.Longitude)
Move_Marker("Marker_gps",geopoint1,"iconcar.png")
End Sub
Sub Move_Marker(MarkerId As String, geopoint1 As GeoPoint, icn As String)
Icon.Initialize(LoadBitmap(File.DirAssets, icn))
etc
etc
etc
End Sub