Ich hätte hier nur ein Code-Schnipsel für VB.NET, vielleicht kann man es in VB6 ähnlich lösen: http://nopaste.free-hack.com/index.php?id=7d9ede0fb7