Binaryworld - Display an animated GIF using the WebBrowser control ... [ VB -> Graphics ]

The standard PictureBox control doesn't support the Animated GIF graphic format. However, you can display these images by using a WebBrowser control:

Click here to copy the following block

WebBrowser1.Navigate "c:\Images\Animated.Gif"

The only problem of this technique is that the WebBrowser control also displays a vertical and/or horizontal scroll bar. You can hide these scrollbars, if you wish, simply by putting the WebBrowser control inside a PictureBox control, whose width and height is smaller than the WebBrowser control. The following code snippet does that programmatically via the Add method of the Controls collection (requires VB6):

Click here to copy the following block

Private Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" _
  (ByVal nIndex As Long) As Long
Private Const SM_CXVSCROLL = 2
Private Const SM_CYHSCROLL = 3

' create a new PictureBox
Dim picBox As PictureBox
Set picBox = Controls.Add("VB.PictureBox", "picBox")

' resize the picture box so that it can hide the
' WebBrowser's scroll bars
With WebBrowser1
  picBox.Move .Left, .Top, .Width - ScaleX(GetSystemMetrics(SM_CXVSCROLL), _
    vbPixels), .Height - ScaleY(GetSystemMetrics(SM_CYHSCROLL), vbPixels)
  ' move the WebBrowser inside the picture box
  Set WebBrowser1.Container = picBox
  ' ensure that the WebBrowser's border isn't visible
  .Move -ScaleX(2, vbPixels), -ScaleY(2, vbPixels)
End With
' all controls are created invisible
picBox.Visible = True