Sub GMap_Ready
Private joGMap As JavaObject
joGMap = GMap
Dim event As Object = joGMap.CreateEventFromUI("com.lynden.gmapsfx.javascript.event.UIEventHandler", "MouseMove", Null)
joGMap.GetFieldJO("map").RunMethod("addUIEventHandler", Array("mousemove", event))
GMap.MapType = GMap.MAP_TYPE_TERRAIN
Dim cp As CameraPosition
cp.Initialize(-25.79886055, 28.32487679, 16)
GMap.AddMarker2(-25.79886055, 28.32487679, "GOTCHA",File.GetUri(File.DirAssets, "helmet1.png"))
GMap.MoveCamera(cp)
Pane2.Visible = True
pnlHistory.Visible = False
End Sub