如何定义listview控件的每一列的宽度？

Question

我的listview控件有3列，请问如何用代码定义listview中的每一列的宽度？谢谢！！！

Answer 1

Private Sub Form_Load()
   Dim li As ListItem
   Dim lCount As Long
   
   With Me.ListView1.ColumnHeaders
      .Add , , A, 300
      .Add , , b, 1000
      .Add , , c, 1500
   End With
   With ListView1.ListItems
        For lCount = 1 To 100
            Set li = .Add(, , lCount)
            li.SubItems(1) = lCount
            li.SubItems(2) = lCount
        Next
   End With
      
End Sub
listview的列宽是可以拉动的，要不拉动，只能用子类阻止