Gifs in a picture box

[Aaron Young]

Here's the code I posted before:

Place a Webbrowser Control within a Picturebox so the Picturebox is the container Object..

Private Sub Command1_Click()
    On Error GoTo CanceledOpen
    With cdbBrowse
        .DialogTitle = "Select a GIF"
        .Filter = "GIFs (*.GIF)|*.GIF"
        .CancelError = True
        .ShowOpen
        
        WebBrowser1.Navigate .FileName
        Picture1.AutoSize = True
        Picture1 = LoadPicture(.FileName)
        Picture1.ScaleMode = vbPixels
        WebBrowser1.Move -12, -17, 1200, 780
    End With
CanceledOpen:
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]