>>261
これじゃだめ？
Dim stringSize As SizeF = Me.CreateGraphics.MeasureString(lvwLI.Text, lvwLI.Font)
lvwCH1.Width = stringSize.Width * 1.2