try this:

DisplStr = ""
scan where user.logged = 1
   iif(empty(allt(DisplStr)), allt(user.username), DisplStr + chr(13) + allt(user.username))
endscan
if !empty(allt(DisplStr))
   messagebox(DisplStr)
else
   messagebox("No User")
endif

hope this helps.

>Could you please tell me how i can show all the usernames from the cursor into a message box with a comma delimit.
>
>**********
>select username from user where logged = 1 into cursor userlist
>
>
>=messagebox(userlist)
>
>**********
>
>Thank you very much.