Public Class MyGridColumnStyle
 ....
 Dim bufferGraphics As Graphics
    Dim bufferSource As CurrencyManager
    Dim rowPos% =  0 

    'определение высоты строки
    Protected Overrides Function GetMinimumHeight() As Integer
        
        'если контроль отключен - возвращаем базовое значение
        If _fitText = False Then Return MyBase.GetMinimumHeight
        Try
            'иначе - получаем исочник данных
            If bufferSource Is Nothing Then
                bufferSource = Me.DataGridTableStyle.DataGrid.BindingContext(Me.DataGridTableStyle.DataGrid.DataSource, DataGridTableStyle.DataGrid.DataMember)
            End If
            'получаем значение текущее столбца
            Dim Value As String = Me.GetColumnValueAtRow(bufferSource, rowPos).ToString
            'получаем объект контекста графики 
            Dim col As New System.Drawing.Text.InstalledFontCollection
            If bufferGraphics Is Nothing Then
                bufferGraphics = Me.DataGridTableStyle.DataGrid.CreateGraphics
            End If
            'вычисляем высоту строки
            Dim h As Single = bufferGraphics.MeasureString(Value, _font, Me.Width).Height
            Return CInt(h)
        Catch ex As Exception
            Throw ex
        Finally
            'если достигли конца освобождаем все временные ресурсы
            If bufferSource.Count -  1  = rowPos Then
                bufferSource = Nothing
                bufferGraphics.Dispose()
                bufferGraphics = Nothing
                rowPos =  0 
                ' MsgBox(1)
            End If
            rowPos +=  1 
        End Try



    End Function

If bufferSource.Count -  1  = rowPos Then
  ...
  rowPos =  0 
Else
  rowPos +=  1 
End If

            rowPos +=  1 
            'если достигли конца освобождаем все временные ресурсы
            If bufferSource.Count = rowPos Then
                ....
                rowPos =  0 
            End If