VB中怎么添加动态图片?

　　1、首先要注册，注册方法：在工程中选中“引用”→引用项目ActiveMovie Control type Libray→然后点击“确定”键即可。
　　2、其次，在PictureBox控件中显示GIF动画，凡有句柄hwnd的窗体控件均可以；
　　3、在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1。

楼主你好！
可以按以下步骤：

1、打开VB6.0，新建标准EXE

2、打开之后，单机属性窗口，选择按分类序。

3、找到外观-Palette，就可以上传动态图片了（支持bmp，gif，dib）

Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\13.gif")
WebBrowser1.Navigate (App.Path & "\13.gif") '播放gif动画
End SubPrivate Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Picture1.Visible = True
Image1.Visible = False
End SubPrivate Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Picture1.Visible = False
Image1.Visible = True
End SubPrivate Sub Command3_Click()
End
End Sub 本程序使用了ie控件 也就是webbrowser控件来显示动态的gif图片的 其实还有一个方法就是用anigif控件，不过那个控件是收费的控件。

巨无语版:整两个timer，interval都是1，一个启动后自己的Enabled=f，图片=XXX1，另一个的enable=t，另一个启动后自己的Enabled=f，图片=XXX2，第一个的enable=t，

很简单，首先在窗体需要添加gif图片的地方拖入picturebox控件，然后在picturebox的image属性里添加gif图片路径就可以了。不要添加到backgroundimage里面，否则gif就不会动了。