B4J Question ComboBox Editabile SetSelection

[Star-Dust]

I set up a ComboBox in Editable mode. I would like every time you raise leventol Focus the text content is selected, a like doing in textField with the SelectAll or SetSelect property.

 

[Erel]

Sub ComboBox1_FocusChanged (HasFocus As Boolean)
   If HasFocus Then
       Dim jo As JavaObject = Sender
       Sleep(40)
       jo.RunMethodJO("getEditor", Null).RunMethod("selectAll", Null)
   End If
End Sub