どなたかすいません。

リストビューの
ListItemのサブアイテムに画像を追加したいのですが可能でしょうか。

Set obItem = ListView1.ListItems.Add()
obItem.Text = "一列目"
obItem.SubItems(1) = ここに画像を追加したい。

ようするにやりたいことは、
エクスプローラの右側の各ファイルのサイズを、
グラフとして表示する。
と、いうようなことをやりたいのですが。

当方VB6.0です。