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

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

Неподскажите, есть ли у MSFlexGrid свойство автоматически изменяющее размеры ячейки в зависимости от длины текста в ней? Что-то аналогичное AutoSize у Label... Заранее благодарен...

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

textual
                            Листинг программы 
                        

                            'Процедура, которая меняет размер ячейки в зависимости
'от размеров содержимого
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
                        