求vb FilgraphManager对象的详细使用方法

我已经可以用这个对象来播放视频了。现还有两个需求没有实现。
1.循环播放单个视频（这个问题其实就是如何获取当前播放状态）
2.按一个键后无论视频是否播完都重新从头播放。（重头播放不难，是把整个下面的程序再运行一次来重新播放，但是这样需要很长的对象加载时间和视频读入时间，我不知道如何不重新加载视频来实现从头开始播）

下面是播放视频的代码。。可以在里面改。。
Dim strFileName As String

strFileName = App.Path + "\video\1.wmv"

Set m_FilGraph = New FilgraphManager
m_FilGraph.RenderFile strFileName

Set m_Video = m_FilGraph

With m_Video
.Owner = Picture1.hWnd 'Owner可以设置为任意窗口的句柄
.WindowStyle = WS_CHILD Or WS_CLIPCHILDREN
.Top = 0
.Left = 0
.Width = Picture1.Width / Screen.TwipsPerPixelX
.Height = Picture1.Height / Screen.TwipsPerPixelY
End With

m_FilGraph.Run
3楼回答已经测试过，不行
4楼回答等于把一切都重新读一遍需要时间，我上面都说过不行了

VB习题求答案 vb问题，求n！ 求VB命令 求一个VB代码？ 求一道vb题 求韩信点兵vb 程序 VB中求平方和 VB求运费作业 求VB代码 急求vb源代码