DBGrid Автоматическое изменение ширины ячейки в зависимости от количества текста в ней - VB

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

Здравствуйте! Пишу программу на Visual Basic 6.0. Интересует как в компоненте DBGrid сделать автоматическое изменение ширины ячейки в зависимости от количества текста в ней. Когда в огромной ячейке всего 1 цифра, то как-то убого смотрится... Или же посоветуйте подобный компонент для отображения таблиц бд(но при этом должна быть возможность редактирования данных в ячейках). Заранее спасибо.

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit 
 Sub DBGridLayout(Operation As String) 
   'сохраняет ширину столбцов 
   Dim lWidth As Long 
   Dim clm As Column 
   Dim lDefWidth As Long 
   ' 
   lDefWidth = DBGrid1.DefColWidth 
   For Each clm In DBGrid1.Columns 
     With cl 
       Select Case LCase(Operation) 
         Case "save" 
           lWidth = .Width 
           SaveSetting App.Title, "Cols" _ 
                   CStr(.ColIndex), lWidth 
         Case "load" 
           lWidth = GetSetting(App.Title, _ 
                   "Cols", CStr(.ColIndex), _ 
           lDefWidth) 
           .Width = lWidth 
       End Select 
     End With 
   Next clm 
 End Sub
 
Private Sub Form_Load() 
   DBGridLayout "Load" 
 End Sub 
 
 Private Sub Form_Unload(Cancel As Integer) 
   DBGridLayout "Save" 
 End Sub