Need increase Listbox size

[frank]

No toolbar wizard for making popupmenu's so I went to help
and I find that confusing

this is how my list box looks:

sel(list("Look for Email[]Send/Write Email[]Phone[]Create Report" "Action" "Assign an Action"))
case 1
Action = "LOOK FOR EMAIL"
case 2
Action = "SEND/WRITE EMAIL"
case 3
Action = "PHONE"
case 4
Action = "CREATE REPORT"

Can you tell me how to make this into a popupmenu?

Thanks