Не подскажите где ошибка ? - VB

Формулировка задачи:

писал прогу для того чтобы:Удалить из него каждую строку, содержащую нулевой элемент. ВОТ ПРОГРАММА, ГДЕ ЗДЕСЬ ОШИБКА

Private Sub Command4_Click()
Dim i, j As Integer
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
If Val(MSFlexGrid1.TextMatrix(i, j)) = 0 Then
MSFlexGrid1.RemoveItem (Rows-i)
End If
Next j
Next i
End Sub

Решение задачи: «Не подскажите где ошибка ?»

textual
                            Листинг программы 
                        
                            MSFlexGrid1.RemoveItem (MSFlexGrid1.Rows - i)