Since your using VB6, go to this forum:
http://pub13.ezboard.com/bvisualbasicexplorer
Somewhere on there is code on how to accomplish this, so try searching for it. If you don't come up with anything post a message there and someone there will know the answer or where to find it.