MSFlexGrid свойство автоматически изменяющее размеры ячейки в зависимости от длины текста в ней

Public Function fColWidth(MyForm As Form, MyGrid As MSFlexGrid) As Boolean
 
Dim c As Integer
Dim r As Integer
 
fColWidth = False
 
On Error GoTo EH_Error
 
  For c = 0 To MyGrid.Cols - 1
    For r = 0 To MyGrid.Rows - 1
    MyGrid.Col = c
      MyGrid.Row = r
    
    If MyGrid.ColWidth(c) < MyForm.TextWidth(MyGrid.Text) Then
        MyGrid.ColWidth(c) = ' ' & MyForm.TextWidth(MyGrid.Text & '  ')
      Else
    End If
    Next r
   Next c
 
fColWidth = True
 
EH_Error:
 If Err.Number <> 0 Then
   IaSub.sMsgError ModuleName, 'fColWidth', Err.Number, Err.Description
   Exit Function
 End If
End Function

' Процедура форматирования строчки грида заполненного данными 
 
Private Sub AdjustRowHeight(flx As MSHFlexGrid, ByVal i As Long)
  Dim j As Long
  Dim lngHeight As Long, lngLinesOfText As Long
  Dim nColSave As Long
  nColSave = flx.Col
  If flx.RowHeightMin Then flx.RowHeight(i) = flx.RowHeightMin
  For j = 1 To flx.Cols - 1
    If flx.ColWordWrapOption(j) <> flexSingleLine Then
      flx.Col = j
      Text1.Width = Abs(flx.CellWidth)
      Text1.Text = flx.Text
      '*************** высота строки
      'Если работаем  в UserControl то используем
      'lngHeight = UserControl.TextHeight(Text1.Text)
      ' если в форме
      lngHeight = Me.TextHeight(Text1.Text)
      '***************************************
      lngLinesOfText = GetLinesOfText(Text1.hwnd)
      ' это просто ограничение, чтобы текст был виден  не болие 5 строк
      If lngLinesOfText > 5 Then lngLinesOfText = 5
      
      If flx.RowHeight(i) < lngLinesOfText * lngHeight Then
        flx.RowHeight(i) = lngLinesOfText * lngHeight + 50
      End If
    End If
  Next j
  flx.Col = nColSave
End Sub
 
'  --   Это в модуль
 
Public Const EM_GETLINECOUNT = &HBA
 
Public Function GetLinesOfText(hwnd As Long) As Long
  GetLinesOfText = SendMessage(hwnd, EM_GETLINECOUNT, 0&, 0&)
End Function
 
Public Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'Процедура, которая меняет размер ячейки в зависимости
'от размеров содержимого
Sub ChangeSizeOfCell()
 
With frmTableEditMDI
 
' В надпись считываем содержимое ячейки, которое также содержится в строке формул
    lblTempForSizeOfCell.Caption = .txtStrokaFormul.Text
    lblTempForSizeOfCell.Font = .ActiveForm.fxgTable.CellFontName
    lblTempForSizeOfCell.FontSize = .ActiveForm.fxgTable.CellFontSize
 
' Сравниваем ширину столбца с шириной надписи. Если она меньше, то приравниваем ширину столбца к ширине надписи
    If .ActiveForm.fxgTable.ColWidth(.ActiveForm.fxgTable.Col) <= frmTableEditMDI.lblTempForSizeOfCell.Width + 100 Then
        .ActiveForm.fxgTable.ColWidth(.ActiveForm.fxgTable.Col) = frmTableEditMDI.lblTempForSizeOfCell.Width + 100
    End If
 
' ...Аналогично для высоты
    If .ActiveForm.fxgTable.RowHeight(.ActiveForm.fxgTable.Row) <= frmTableEditMDI.lblTempForSizeOfCell.Height Then
        .ActiveForm.fxgTable.RowHeight(.ActiveForm.fxgTable.Row) = frmTableEditMDI.lblTempForSizeOfCell.Height + 100
    End If
    
End With
 
End Sub