Sub FillMailBox(cursor As Cursor)
Log("inside fillmailbox....")
Sleep(0)
ProgressDialogShow2("Retrieving Emails, please wait...", False)
Sleep(0)
dbcursor = Common.SQL1.ExecQuery("SELECT * FROM inbox WHERE emailAddress = " & "'"&Common.email&"'" & " AND mailIndex=1 ORDER BY UUID DESC")
mailList.ClearContent
mapItems.Clear
For i = 0 To dbcursor.RowCount - 1
Dim NewItem As typItemData
NewItem.Initialize
NewItem.Text = "item #: " & i
NewItem.Anim.Initialize(Me, "Anim_AnimationEnd")
Dim ID As Long = i
mapItems.Put(ID, NewItem)
mailList.AddItem("mail_retrieve", ID)
mailList.SetSwipeDirection(i, mailList.SWIPE_DIRECTION_BOTH)
Next
mailList.AnimationCleaner = True
ProgressDialogHide
End Sub