0 0 serial 0 KeyCodesCNTs 0 Default %Library.TMFormClass 0 %TMBevel 0 0 "" 0 0 0 0 0 %TMBevel 0 0 "" 0 0 0 0 0 %Library.TMForm 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMSpeedButton 0 0 "" 0 0 0 0 0 %TMSpeedButton 0 0 "" 0 0 0 0 0 %TMListBox 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code 0 0 0 0 code 0 0 0 0 code initvalue:%String 0 0 0 0 code LookUpStr:%String 0 %Library.Integer 0 0 0 code initvalue:%String 0 %Status 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 Do .. Do ..lbLeveranciers.SetFocus() .. Set ..lbLeveranciers.ItemIndex=0 . Else Do .. Do ..txtNaamNummer.SelectAll() ;End of user code s Args=$lb(Sender,Key,Shift) q ]]> %Library.CacheSerialState list Address Form Bevel1 btnAnnuleren btnOk lbSortList lbKlanten Bevel2 Label1 txtNaamNummer lbLeveranciers