Dim MarkerOptions1 As MarkerOptions
MarkerOptions1.Initialize
MarkerOptions1.Position2(mylat,mylon).Snippet("").Title("Hello World").Visible(True)
MarkerOptions1.Icon(BitmapDescriptor1)
MarkerOptions1.Anchor(0.5,0.5)
Dim Marker1 As Marker=GoogleMapsExtras1.AddMarker(GoogleMap1, MarkerOptions1)