Visual Basic - ¿Se puede insertar un gif animado en un formul?

¿Se puede insertar un gif animado en un formulario?

Pero no recuerdo donde lei como hacer el truco, busca aqui, sino de todas maneras aprenderas mil cosas:
http://personal2.iddeo.es/fustej/index1.htm
http://skyscraper.fortunecity.com/parallax/721/index.html
http://www.microsoft.com/spain/support/trucos/trucosvb.htm

Si puedes agragar Gifs Animados a tu programas de Visual Basic.
Pero primedo debes tener un ActiveX que te lo haga. Yo utilizo el Gif89a Es facilisimo de usar, si no lo tienes escribeme y te lo envio, en caso de tenerlo solo escribeles esta rutina.

Gif89a1.FileName = App.Path + "\Bebedor.gif"

necesito el controlador para insertar gifs en visual, me lo podrìas ayudar por favor!!!!!!!

Esta bien anda re vien en tiempo de diseño pero el problema es cuando compilas el proyecto para crear el " .exe" te sale un aviso que no tiene informacion de dependencia gif98a1y, se compila y todo hasta lo instalas normalmente pero no funciona el gif , nesesito una explicacion a esto para poder hacerlo andar en mi proyecto
Desde ya muchas grasias

Muchas gracias...

Pasame el activex gif89a por favor lo estare esperando, gracias

La respuesta que te dieron es correcta, aunque tambien puedes utilizar el control AnimationGif.ocx, el cual tambien es sencillo de utilizar. Si lo quieres escribeme y te lo mando por mail.

Las soluciones que te han dado son las más fáciles. Sin embargo, te puedo dar una solución menos sofisticada pero que igual funciona. Para esto debes tener todas las imágenes que componen el GIF en forma seperada. Esto es, si tu GIF tiene 10 frames, debes tener 10 archivos distintos llamados imagen01.gif, imagen02.gif... imagen10.gif en la carpeta donde están los archivos del proyecto.
Luego debes tener un formulario que contenga un control PictureBox llamado Picture1 y un control Timer llamado Timer1. Por último, pega este código en la sección declaraciones del formulario.

´Simulación GIF Animado
Private GifCount As Integer

Private Sub Form_Load()
GifCount = 0
End Sub

Private Sub Timer1_Timer()
GifCount = GifCount + 1
If GifCount = 11 Then GifCount = 1
Picture1.Picture = LoadPicture(App.PATH & "\imagen" & Format(GifCount, "00") & ".gif")
End Sub

Si bien es cierto que no es la solución más simple (especialmente por que debes tener todas las imágenes separadas), igual te puede brindar una alternativa.
Esperando haber sido de ayuda, me despido...