Sub ShowListbyRowTag(tmpControl As object, tmpKeyValue as string)
Dim inty As integer
select case tmpcontrol
case isa ComboBox
For intY = 0 To combobox(tmpControl).listcount -1
if combobox(tmpControl).RowTag(inty).StringValue= tmpKeyValue then
combobox(tmpControl).listindex=inty
exit sub
end if
Next
combobox(tmpControl).listindex=-1
case isa popupmenu
For intY = 0 To popupmenu(tmpcontrol).listcount -1
if popupmenu(tmpControl).RowTag(inty).stringvalue= tmpKeyValue then
popupmenu(tmpControl).listindex=inty
exit sub
end if
Next
popupmenu(tmpControl).listindex=-1
end select
End Sub
