how do i ad data to my listview control

[johnnyboy23]

here is my code how do i add data to these columnsplease help me!!

Private Sub Form_Load()

'creat obj var for columnHeader obj and listitem obj
Dim sColumn As ColumnHeader
Dim sitem As ListItem


'start in report view
listview1.View = lvwReport

'set the size and pos of the listview

listview1.Width = ScaleWidth
listview1.Height = ScaleHeight
listview1.Top = ScaleTop
listview1.Left = ScaleLeft

'add columnHeaders..the width of the columns is
'the widht of the ctrl / 2 by the num of headers

Set sColumn = listview1.ColumnHeaders.Add(, , "Name")
Set sColumn = listview1.ColumnHeaders.Add(, , "Phone #1")
Set sColumn = listview1.ColumnHeaders.Add(, , "Phone #2")





End Sub