Listview某列求和

Private Sub T()
    Dim i As Integer
    Dim T
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Checked Then
            T = T + Val(ListView1.ListItems(i).SubItems(1))
        End If
    Next

 TextBox4.Value = Format(T, "0.00")
End Sub
为何老是显示是0呢????

我想问一个问题,为何我的LISTVIEW它的位置会变呢????