Sub btnTarief_Click
zknTarief.SearchField.HintText = "Zoektekst ...."
Zoektekst = zknTarief.SearchField.TextField
Zoektekst.Width=pnlExtras.Width/2
zknTarief.SearchField.TextField.Width=pnlExtras.Width/2
zknTarief.SearchField.Update
Wait For (zknDialog.ShowTemplate(zknTarief, "", "", "Annuleer")) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
btnTarief.xLBL.Text = zknTarief.SelectedItem
End If
End Sub