Visual Basic - Porfavor esto me tiene verde...

Ayuda..nesecito limpiar un grid en su totalidad pero no lo hace no se que estoy haciendo mal este es el còdigo:
Public Sub LimpiarGrid()
Dim Contador1 As Integer
Dim Contador2 As Integer

Grid1.Col = 1
For Contador1 = 1 To Grid1.Rows - 1
Grid1.Row = Contador1
Grid1.Text = ""
Next

Grid1.Row = 1
For Contador2 = 1 To Grid1.Cols - 1
Grid1.Col = Contador2
Grid1.Text = ""
Next
Grid1.Row = 1
Grid1.Col = 0
Grid1.Refresh
End Sub

Reinicia tus renglones al Valor Minimo
y luego vuelve al valor de renglon que tenias
Ej
Var = flexgrid.rowcount (o el equivalente)
msFlexGrid.rows = 2 'elimina renglones
msFlexGrid.rows = Var 'restaura renglones
Esa es la rapida si no quieres conservar ningun valor
(sorry por la sintaxis, pero la idea es asi :P )