Ver originalIf c = numv ThenFor i = 1 To nFor j = 1 To 6IF ( matriz(i, j) != 0) ThenForm5.ListView1.ListItems.Add(i).Text = matriz(i, j)End IfNext jNext i