Nevermind, I got it. Actually I had it, but had a typo.
Thanks to everyone who responded! Out of gratitude for all you help I have decided to give everyone who has posted so far ALL THE MONEY I HAVE. Couldn't have done it without you.
You know who you are.
EDIT: If anyone is interested, I decided to release an example. So here it is:
AviStreamInfo using VB6