在win8中正常，本本升级到win10 ，程序再运行就出错了
On Error Resume Next
pMC1 = New QuartzTypeLib.FilgraphManager
pMC1.Stop()
pMC1.RenderFile("")
'加载GIF文件
On Error GoTo Lhandle
pMC1.RenderFile(My.Application.Info.DirectoryPath & "\picture\my.gif") '加载GIF动画（图片），并在PictureBox中播放
On Error Resume Next
pVW1 = pMC1
pVW1.WindowStyle = CInt(&H6000000)
'限定图像在Picture1的大小中
pVW1.Left = 0 : pVW1.Top = 0
pVW1.Width = TV1.Size.Width
pVW1.Height = TV1.Size.Height
pVW1.Owner = TV1.Handle.ToInt32 '在Picture1中播放
pVW1.MessageDrain = TV1.Handle.ToInt32 '此行非常重要，用来定义图像的右键菜单所必须
pMC1.Run() '一直播放
pMC2 = New QuartzTypeLib.FilgraphManager
pMC2.Stop()
pMC2.RenderFile("")
'加载GIF文件
On Error GoTo Lhandle
pMC2.RenderFile(My.Application.Info.DirectoryPath & "\picture\my.gif") '加载GIF动画（图片），并在PictureBox中播放
On Error Resume Next
pVW2 = pMC2
pVW2.WindowStyle = CInt(&H6000000)
'限定图像在Picture1的大小中
pVW2.Left = 0 : pVW2.Top = 0
pVW2.Width = TV2.Size.Width
pVW2.Height = TV2.Size.Height
pVW2.Owner = TV2.Handle.ToInt32 '在Picture1中播放
pVW2.MessageDrain = TV2.Handle.ToInt32 '此行非常重要，用来定义图像的右键菜单所必须
pMC2.Run() '一直播放
pMC3 = New QuartzTypeLib.FilgraphManager
pMC3.Stop()
pMC3.RenderFile("")
'加载GIF文件
On Error GoTo Lhandle
pMC3.RenderFile(My.Application.Info.DirectoryPath & "\picture\my.gif") '加载GIF动画（图片），并在PictureBox中播放
On Error Resume Next
pVW3 = pMC3
pVW3.WindowStyle = CInt(&H6000000)
'限定图像在Picture1的大小中
pVW3.Left = 0 : pVW3.Top = 0
pVW3.Width = TV3.Size.Width
pVW3.Height = TV3.Size.Height
pVW3.Owner = TV3.Handle.ToInt32 '在Picture1中播放
pVW3.MessageDrain = TV3.Handle.ToInt32 '此行非常重要，用来定义图像的右键菜单所必须
pMC3.Run() '一直播放
即时窗口一直滚动提示如下信息：
“System.Runtime.InteropServices.COMException”类型的第一次机会异常在 工程1.exe 中发生
“System.Runtime.InteropServices.COMException”类型的第一次机会异常在 工程1.exe 中发生
然后就出现了：
vshost32-clr2.exe 已停止工作
出现了一个问题，导致程序停止正常工作，如果有可用的解决方案，windows将关闭程序并通知你。
是不是quartz.dll、wmp.dll和wmplib.dll在win10下有问题，还是我原来使用就有问题啊，请大神指点一下。