Private Sub GetSupportedCharsets As List
Dim Charset As JavaObject
Charset.InitializeStatic("java.nio.charset.Charset")
Dim m As Map = Charset.RunMethod("availableCharsets", Null)
Dim res As List
res.Initialize
For Each c As String In m.Keys
res.Add(c)
Next
Return res
End Sub