lisbox column width

[jamielill]

I am try to use the following code to dynamically change the width of a list box in excel vba
But I cannot get line 4 going

dim c as long
c = 0
For c = 0 To 5
With UserForm1.listbox1
.Column (c)
.ColumnWidth = c + 2
End With
Next c

Any helps would be appreciated

Thanks
Jamie Lill