Playing WMV files using DirectX or Windows Media ActiveX in VB

I am trying to make a video player in VB. Originally I was using Windows Media ActiveX to play the videos. When the videos would play the sound would play but there would be no video. I decided to use DirectX to play the videos in hope I would not have this problem. I found a artical online that explaned how to use DirectX to play AVI files. the artical is at: http://www.c-sharpcorner.com/UploadFile/mgold/PlayingVideo11242005002218AM/PlayingVideo.aspx. A thou the code is in C# i was able to adapt it to my needs. i made the conversion to DirectX, ran the program and i got the sae problem. Incase the problem was because i was playing a WMV instead of an AVI i tryed using an AVI file. I still got the same problem. I would post code here but I am not sure what part of the code to copy. Any ideas would be happily be appreciated.