Dim Marker1 As Marker
Dim MarkerOptions1 As Marker
Marker1.Initialize
MarkerOptions1.Initialize
MarkerOptions1.Position2(dbLat, dbLng).Snippet(Snippet).Title(Title).Visible(blnVisible)
Dim BitmapDescriptor1 As BitmapDescriptor
Dim BitmapDescriptorFactory1 As BitmapDescriptorFactory
BitmapDescriptor1=BitmapDescriptorFactory1.FromAsset(IconFile)
MarkerOptions1.Icon(BitmapDescriptor1)
Marker1 = GoogleMapsExtrasRef.AddMarker( GmapRef, MarkerOptions1)
Marker1.InfoWindowShown = True