Private Sub btnSearch_Click
Wait For (Dialog.ShowTemplate(SearchTemplate, "", "", "CERRAR")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
codeselec = MidExtract(SearchTemplate.SelectedItem,"[","]")
End If
txtcodebar.RequestFocus
End Sub