DEFINE CLASS StateCombobox AS WebCombobox OF voodoo.prg LABEL = 'State:' Width = 250 FUNCTION OnLoad DODEFAULT() THIS.AddListItem('*** USA and Canada - Please select a state','--') THIS.AddListItem('Alabama','AL') THIS.AddListItem('Alaska','AK') THIS.AddListItem('Alberta','AB') THIS.AddListItem('American Samoa','AS') ** More states added here... ENDFUNC ENDDEFINEYou can then simply go ahead and add this combobox to all kinds of pages you want to build, in the following manner:
oPage.AddObject("cmbState","StateCombobox") oPage.ControlSource = "Customer.State"Basically, this is as easy as in any VFP form!