那位好心人士可以告诉我：在VB中如何向列表框添加指定宽高的图片呢？

我在设计一个用于展示图片的应用程度，由于设计的需要，我所用的图像控件的高定为500像素，且其Strech属性也必须设置为False。我希望程序运行后，用户点击“添加图片”按扭时，添加进列表框的图片尺寸在一定范围内（我希望只添加其高为600像素以内的图片，超出600像素的不被添加进来）。我目前编写的程序如下：
………………
………………
If Path = "" Then Exit Sub
Path = Path & "\"
lstPicName.Clear '清空列表框
For i = 1 To FileType
intFileTypeNum(i) = 0
strFileName = Dir(Path & "*." & strFileType(i))

Do While Not strFileName = ""
intFileTypeNum(i) = intFileTypeNum(i) + 1
（各位大佬，在此处应该编写什么语句来限制图片的高呢?因为下一行的语句就是向列表框中添加图片了。）
lstPicName.AddItem strFileName '向列表框中添加文件名
strFileName = Dir()
Loop
Next

当然，要获得图片的宽高，必须在前面作一些定义什么的，应该怎么编写程序呢？谁能为我提供一段完整可用的源代码啊？帮帮忙啊！！

那位好心人士可以告诉我：在VB中如何向列表框添加指定宽高的图片呢？ 那位好心的朋友可以告诉我如何把照片在网上保存？谢谢了？ 那位大虾、好心人士帮我翻译一下这篇短文！！！感激不尽！！！能读顺就可以了！！ 那位好心的人可以告诉我x射线的弱点是什么啊小弟在此谢过了 那位好心人士帮我翻译一下这段话。谢谢。 有哪位好心人士可以告诉我英雄传说6空之轨迹SC在哪里下载 我现在想买个显卡哪个比较好?价钱大概是多少?那位好心的可以告诉我? 那位好心朋友可以告诉我资料比较全的英语网站,我是教高一英语 那位大哥大姐好心告诉我一些学习方法，帮我提高成绩在，下感激不尽 那位可以告诉我