Private Sub Form_Load()

    Dim iLp As Integer
    Dim sngTotal As Single
    Dim sngVal As Single
    
    Randomize
    
    For iLp = 1 To 10
        sngVal = Format(100 * Rnd, "##0.00")
        ListView1.ListItems.Add iLp, , sngVal
    Next iLp
    
    For iLp = 1 To ListView1.ListItems.Count
        sngTotal = sngTotal + Val(ListView1.ListItems(iLp))
    Next iLp
    
    MsgBox sngTotal
    
End Sub