Beat me! :) I was only thinking about it, too lazy to type.

>If ALL controls are placed in the form (not in some container)
>The you could use this (in Init event of the form):
>

>FOR EACH oControl IN thisform.Controls
>    IF PEMSTATUS(oControl, "GotFocus", 5) AND;
>       NOT INLIST(UPPER(oControl.Name), PUT THE NAMES OF CONTROLS YOU WANT TO EXCLUDE IN UPPER CASE HERE)
>       BINDEVENT(oControl,"GotFocus", thisform,"PopulateListBox", 1)
>    ENDIF
>NEXT
>

>If you use some container in that form (PageFrame, Container, etc) you should do this as a method in the form and call it recursively for each container.