[RESOLVED] Loop through listview adding items

[Siddharth Rout]

Is This what you are trying...

Private Sub Pop3_Done(ByVal ErrorCode As Long, ByVal ErrorText As String, _
ByVal HeadersOnly As Boolean)
    '~~> Retrieve mail from inbox
    Dim i As Integer, itmM As ListItem, lstCount As Long
   
    For i = 1 To Pop3.Messages.Count
        lstCount = frmMain.LstNewMail.ListItems.Count
        
        Set itmM = frmMain.LstNewMail.ListItems.Add(, , Pop3.Messages(i).From)
        
        frmMain.LstNewMail.ListItems(lstCount).ListSubItems.Add _
        , , Pop3.Messages(i).Subject
        
        frmMain.LstNewMail.ListItems(lstCount).ListSubItems.Add _
        , , Pop3.Messages(i).Date
    Next i
End Sub