Sub POP_ListCompleted (Success As Boolean, Messages As Map)
Log("List: " & Success)
If Success Then
For i = 0 To Messages.Size - 1
Pop.DownloadMessage(Messages.GetKeyAt(i), True) 'Download all messages and delete them
Next
Else
Log(LastException.Message)
End If
POP.Close 'The connection will be closed after all messages are downloaded
End Sub