The standard PictureBox control doesn’t support the Animated GIF graphic format. However, you can display these images by using a WebBrowser control:
WebBrowser1.Navigate "c:ImagesAnimated.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):
Private Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" _ (ByVal nIndex As Long) As LongPrivate Const SM_CXVSCROLL = 2Private Const SM_CYHSCROLL = 3' create a new PictureBoxDim picBox As PictureBoxSet 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 invisiblepicBox.Visible = True
