关于 VB WebBrowser 添加 gif 动画

  我想在VB的窗体上添加一个动画，使用了WebBrowser控件，代码：
  WebBrowser1.Navigate "E:\学习资料\毕业设计\vb多媒体课件\图片2\地球自转动图.gif", 后来发现动画框旁边有滚动条，并且周边一圈有白色的空白区，与背景图片不是融合的很好，到网上搜索使用下列代码，将滚动条消去： 
 Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
  Private Const SM_CXVSCROLL = 2           'X   Size   of   arrow   in   vertical   scroll   bar.
  Private Const SM_CYHSCROLL = 3           'Y   Size   of   arrow   in   horizontal   scroll   barPrivate Sub Form_Load()
       Dim pic  As PictureBox
       Set pic = Controls.Add("VB.PictureBox", "pic")
       Dim mywidth  As Long, myheight  As Long
       mywidth = ScaleX(GetSystemMetrics(SM_CXVSCROLL), vbPixels)           '垂直滚动条宽度
      myheight = ScaleY(GetSystemMetrics(SM_CYHSCROLL), vbPixels)           '水平滚动条高度
  '调整图片框位置，使其正好掩盖滚动条
  With WebBrowser1
          pic.Move .Left, .Top, .Width - mywidth, .Height - myheight
          Set WebBrowser1.Container = pic         '将webbrowser置入图片框内
          .Move -ScaleX(2, vbPixels), -ScaleY(2, vbPixels)           '   确保   WebBrowser边框隐藏
  End With
  pic.Visible = True
  WebBrowser1.Navigate "E:\学习资料\毕业设计\vb多媒体课件\图片2\地球自转动图.gif", 0
End Sub现在的问题是周边还有一圈白色的空白区域,不管WebBrowser框画多小，周边都有这个白色的空白区，怎么解决啊？？谢谢了