[Mohamad Anan]

كود :

Private Sub Form_Load()
   Dim PreRow As ListItem
   Dim Row As ListItem
   With ListView1
       .View = lvwList
       Set PreRow = .ListItems.Add(, , "1")
       Set Row = .ListItems.Add(, , PreRow.Text & "2")
       Set Row = .ListItems.Add(, , Val(PreRow.Text) + Val("2"))
   End With
End Sub