動画の再生時間を表示するには？

Visual BasicでWindows Medeia Playerの動画の再生時間を取得する方法を教えてください。
バージョンは2008です。
よろしくお願いします。