gmap.Initialize("gmap", ApiKey)
PanelMap.AddView(gmap, 0, 0, screenWidth, screenHeight*0.95)
gmap.GetUiSettings.CompassEnabled = True
gmap.MyLocationEnabled = True
gextra.Initialize(gmap)
Dim m As Marker = gmap.AddMarker(40, 30, "test")
m.Snippet = "Marker 1"
m.Opacity = 0.5
m = gmap.AddMarker2(32, 35, "Marker 2", Colors.Green)
gextra.SetSelectedMarker(m)
Sub gmap_MarkerInfoWindow (OMarker As Object) As Object
Dim SelectedMarker As Marker = OMarker
Dim p As Panel
p.Initialize("")
p.Color = Colors.Red
p.SetLayoutAnimated(0, 1, 0, 0, 200, 200)
Dim lbl As Label
lbl.Initialize("")
lbl.Text = SelectedMarker.Title
p.AddView(lbl, 10, 10, 200, 200)
Return p
End Sub