vb6 gif导入后变黑导致不能实现透明效果，怎么处理

Picture1.Visible = True
Picture1.Top = Picture1.Top - 240
Me.ScaleMode = 3
Picture1.ScaleMode = 3
On Error Resume Next
Set a = New FilgraphManager
a.Stop
a.RenderFile ""
a.RenderFile App.Path & "\b.gif"
Set b = a
b.WindowStyle = CLng(&H6000000)
b.Left = 0: b.Top = 0
b.Width = Picture1.Width
b.Height = Picture1.Height
b.Owner = Picture1.hWnd
b.MessageDrain = Picture1.hWnd
a.Run
Me.ScaleMode = 1
Sleep 1050
a.Stop
Picture1.Visible = False
Exit Sub
不知道跟这里有没有关系

引用quartz.dll就是DirectShow，没用来播放过gif，不清楚，不过用GDI+可以解决GIF播放的问题，网上也有源码，我以前也发布过播放GIF动画的控件