Make sure if you move a series of emails that you count backwards
moving item 1 first them makes item 2 item 1

for x= 100 to 1 step -1
Thisform.oMail.oInbox.Items[x].move(moveloc)

endfor