Sub SetAutoComplete(Items As List, Field As TextField)
Dim jo As JavaObject
Dim jo2 As JavaObject
jo.InitializeStatic("org.controlsfx.control.textfield.TextFields")
jo2 = jo.RunMethod("bindAutoCompletion", Array(Field, Items))
jo2.RunMethod("setMinWidth",Array(100))
End Sub