VB6.0查询显示出来的数据，如何显示 自动调整列宽，？？？？？？？

请会的人，提供下代码/谢谢

[此贴子已经被作者于2020-5-3 16:14编辑过]

Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)
'--------------------------------------------------------------------
'功能:
'      自动调整Grid各列列宽为最合适的宽度
'参数:
'      [frmCur].........................................当前工作窗体
'      [gridCur]........................................当前要调整的Grid
'--------------------------------------------------------------------
Dim i, j As Integer
Dim dblWidth As Double
    With gridCur
       For i = 0 To .Cols - 1
           dblWidth = 0
           If .ColWidth(i) <> 0 Then
               For j = 0 To .Rows - 1
                   If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
                       dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
                   End If
               Next
               .ColWidth(i) = dblWidth + dblIncWidth + 100
           End If
       Next
    End With
 
End Sub

网上找到了一个代码，说是放在模块中，但是怎么调用呢？请教，

这是手动预设的方法，管用，但是还有一种自动调整的方法，如我上面发的那个代码，就是放在模块后，不会调用，

自动调整列宽，你可以按照你的写法，把代码写给我吗？