The VB6 Listview (at least) doesn't have a Width property for Subitems. You can do this however.

listview1.ColumnHeaders(13).Width = 100