Sub SetMarkerLabel(m As Marker, text As String)
Dim r As Reflector 'jReflection library
r.Target = m
r.RunMethod4("invokeJavascript", Array("setLabel", Array(text)), Array As String("java.lang.String", "[Ljava.lang.Object;"))
End Sub
Sub SetMarkerLabel(m As Marker, text As String, color As String)
Dim jo As JavaObject = m
jo = jo.RunMethod("getJSObject", Null)
Log(jo.RunMethod("eval", Array($"this.setLabel(
{text: "${text}",
color: "${color}",
"fontSize": "18px"
});"$)))
End Sub