Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
AutoCompleteEditText1.SetItems(Array("aaa", "aab", "aac"))
Dim jo As JavaObject = AutoCompleteEditText1
Dim listener As Object = jo.CreateEventFromUI("android.widget.AutoCompleteTextView.OnDismissListener", "dismiss", Null)
jo.RunMethod("setOnDismissListener", Array(listener))
End Sub
Sub Dismiss_Event (MethodName As String, Args() As Object) As Object
If MethodName = "onDismiss" Then
Log("dismissed")
End If
Return Null
End Sub