Tasto destro sulla casella degli strumenti, componenti, checka Microsoft Internet Controls e piazza il WebBrowser nel form, poi una PictureBox.
Dopodiché usa questo.
Code:
Private Sub Form_Load()
Dim location As String
location = "percorsogif\nomegif.gif"
Picture1.Visible = False
Picture1.Picture = LoadPicture(location)
Picture1.AutoSize = True
WebBrowser1.Width = Picture1.Width
WebBrowser1.Height = Picture1.Height
WebBrowser1.Navigate "about:<html><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll=no><img src=" & location & "></img></body></html>"
End Sub
Non c'avevo un cazzo da fa'.
Visual basic gif
Linear Mode
