VB播放GIF的问题

这是豹子的一个代码：
Private pMC As FilgraphManager 'ｶｨﾒ蚪MCﾎｪFilgraphManagerｶﾔﾏ・
Private pVW As IVideoWindow 'ｶｨﾒ蚪VWﾎｪIVideoWindowｶﾔﾏ・
Private Sub Command1_Click()
         On Error Resume Next
        Set pMC = New FilgraphManager
        pMC.Stop
        pMC.RenderFile ""
        
        'ｼﾓﾔﾘGIFﾎﾄｼ
         On Error GoTo Lhandle
        pMC.RenderFile "E:\offline.gif" 'ｼﾓﾔﾘGIFｶｯｻｭ｣ｨﾍｼﾆｬ｣ｩ
        
         On Error Resume Next
        Set pVW = pMC
        pVW.WindowStyle = CLng(&H6000000)
        
        'ﾏﾞｶｨｶｯｻｭﾔﾚPicture1ｵﾄｴ｡ﾖﾐ
         pVW.Left = 0: pVW.Top = 0
        pVW.Width = Picture1.ScaleWidth
        pVW.Height = Picture1.ScaleHeight
        
        pVW.Owner = Picture1.hWnd 'ﾔﾚPicture1ﾖﾐﾏﾔﾊｾ
         pVW.MessageDrain = Picture1.hWnd 'ｴﾋﾐﾐｷﾇｳ｣ﾖﾘﾒｪ｣ｬﾓﾃﾀｴｶｨﾒ蠍ｯｻｭｵﾄﾓﾒｼ・ﾋｵ･ﾋﾘﾐ・
         pMC.Run
        
         Exit Sub
Lhandle:
        MsgBox ("ｼﾓﾔﾘﾎﾄｼｴ﨔｡")
End SubPrivate Sub Command2_Click()
        pMC.Stop
        Set pVW = Nothing
        Set pMC = Nothing
End SubPrivate Sub Form_Load()
        Me.ScaleMode = 3
        Picture1.ScaleMode = 3
End Sub但是提示说用户变量类型未定义，如何解决呢（豹子说要调用运动图像播放类型库Quartz.dll,在c:\windows\system32目录下，但是如何调用？）