vb 6.0 Listview控件 怎样实现根据字符长度自动调整列宽?

工程中引入如下代码就可以自动调整列宽了。Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub AutosizeColumns(ByVal TargetListView As ListView)Const SET_COLUMN_W...