Private Sub SD_OpenList
Log("Oper DropDown")
#if B4A
Dim Ph As Phone
' B4XPage
Ph.HideKeyboard(B4XPages.GetManager.GetTopPage.Parent.NativeType)
' Normal
Ph.HideKeyboard(Activity)
#else if b4i
' B4XPage
Root.As(NativeObject).RunMethod("endEditing:", Array(True))
' Normal
Page1.RootPanel.As(NativeObject).RunMethod("endEditing:", Array(True))
#End If
End Sub