如何在VB中播放动态.GIF.

用WebBroswer控件Private Sub Form_Load()
Call gwoklogImgfalse
img_gwoklog(0).Visible = True
Timer1.Interval = 800
Timer1.Enabled = True
WebBrowser1.Navigate "about:<html><body scroll='no'><img src='T:\ok.gif'></img></body></html>"
End SubPrivate Sub gwoklogImgfalse()
img_gwoklog(0).Visible = False
img_gwoklog(1).Visible = False
img_gwoklog(2).Visible = False
img_gwoklog(3).Visible = False
img_gwoklog(4).Visible = False
End SubPrivate Sub Timer1_Timer()If img_gwoklog(0).Visible Then
   Call gwoklogImgfalse
   img_gwoklog(1).Visible = True
ElseIf img_gwoklog(1).Visible Then
   Call gwoklogImgfalse
   img_gwoklog(2).Visible = True
ElseIf img_gwoklog(2).Visible Then
   Call gwoklogImgfalse
   img_gwoklog(3).Visible = True
ElseIf img_gwoklog(3).Visible Then
   Call gwoklogImgfalse
   img_gwoklog(4).Visible = True
ElseIf img_gwoklog(4).Visible Then
   Call gwoklogImgfalse
   img_gwoklog(0).Visible = True
End IfEnd Sub