给listbox 列表项加图标(图片)

在baidu和google上，VB6给listbox 加图标（图片）的程序一个都没有，只好自已编了一个程序，补了VB6空白。不足三十行代码程序，非常巧妙给VB6自带的listbox控件加上了图标，图标可以是任意图片！程序代码简洁明了，一看就懂，其中涉及如何改变列表项的行间距。