FlexGrid-sabiranje celija u jednom zapisu

Code:

Private Sub Form_Load()
    Dim zbir As Integer
    
    Randomize Timer
    
    MSFlexGrid1.Cols = 10
    MSFlexGrid1.Rows = 10
    
    'Spoljasnje odbrojcavanje sivih polja
    For k = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.TextMatrix(0, k) = k
    Next k
    For r = 0 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.TextMatrix(r, 0) = r
    Next r
    
    'Upisivanje slucajnih brojeva od 0 do 9 kao proba
    For k = 1 To MSFlexGrid1.Cols - 1
        For r = 1 To MSFlexGrid1.Rows - 1
            MSFlexGrid1.TextMatrix(r, k) = Int(Rnd * 10)
        Next r
    Next k
    
    'Sabiranje svih kolona prvog reda
    zbir = 0
    For k = 1 To MSFlexGrid1.Cols - 1
        zbir = zbir + Val(MSFlexGrid1.TextMatrix(1, k))
    Next k
    
    'Zbir svih kolona prvog reda
    Label2.Caption = zbir
    
    
    'Sabiranje svih redova prve kolone
    zbir = 0
    For r = 1 To MSFlexGrid1.Rows - 1
        zbir = zbir + Val(MSFlexGrid1.TextMatrix(r, 1))
    Next r
    
    'Zbir svih redova prve kolone
    Label4.Caption = zbir
    
    
    
End Sub

Code:
Private Function SumColumn(lColumn As Long) As Long
Dim i As Long
Dim lZbir As Long
lZbir = 0
For i = 1 To MSFlexGrid1.Rows - 1
If Val(MSFlexGrid1.TextMatrix(i, lColumn)) < 10 Then lZbir = lZbir + Val(MSFlexGrid1.TextMatrix(i, lColumn))
Next i
SumColumn = lZbir
End Function

Code:
Private Function SumRow(lRow As Long) As Long
Dim i As Long
Dim lZbir As Long
lZbir = 0
For i = 1 To MSFlexGrid1.Cols - 1
If Val(MSFlexGrid1.TextMatrix(lRow, i)) < 10 Then lZbir = lZbir + Val(MSFlexGrid1.TextMatrix(lRow, i))
Next i
SumRow = lZbir
End Function

Code:
Private Function SumGrid() As Long
Dim i As Long
Dim j As Long
Dim lZbir As Long
lZbir = 0
For i = 1 To MSFlexgrid1.Rows - 1
   For j = 1 To MSFlexgrid1.Cols - 1
   If Val(MSFlexGrid1.TextMatrix(i, j)) < 10 Then lZbir = lZbir + Val(MSFlexGrid1.TextMatrix(i, j))
   Next j
Next i
SumGrid = lZbir
End Function

Code:
Label1.Caption = SumRow(2)

Code:
Text1.Text = SumColumn(3)

Code:
Label2.Caption = SumGrid

Code:

Dim I as Integer
Dim iCount as Integer
Dim iRow as Integer
     
     iRow = 1 'Ovde odredjujes koji red ispitujes, a ako hoces za sve redove onda ti trba jos jedna petlja 
                 'koja ce prolaziti kroz njih
     
     For I = 0 to MSFlexGrid1.Cols - 1
          If Val(MSFlexGrid1.TextMatrix(iRow, I)) < 10 Then iCount = iCount + 1
     Next I

     Label1.Caption = iCount