Thank you.
I find the solution
' Add a group with totals
Dim TotalSum, TotalSum1 As Double
Dim TempDbl As Double
TotalSum = 0
TotalSum1 = 0
For Each strmyGroupname In ListView1.Items
If Double.TryParse(strmyGroupname.SubItems(7).Text, TempDbl) Then TotalSum += TempDbl
If Double.TryParse(strmyGroupname.SubItems(8).Text, TempDbl) Then TotalSum1 += TempDbl
Next
Dim gp As ListViewGroup
gp = New ListViewGroup("total", "total")
ListView1.Groups.Add(gp)
Dim Item1 As New ListViewItem
Item1 = ListView1.Items.Add("total:", 0)
Item1.SubItems.Add("")
Item1.SubItems.Add("")
Item1.SubItems.Add("")
Item1.SubItems.Add("")
Item1.SubItems.Add("")
Item1.SubItems.Add("")
Item1.SubItems.Add(TotalSum)
Item1.SubItems.Add(TotalSum1)
Item1.Group = gp
ListView1.Update()
ListView1.EndUpdate()