我们打开vb，用左侧工具栏的“picturebox”控件，来作为我们动画素材的容器。我们只需要把我们所需要显示的图片放进picturebox即可。

简单添加“picturebox”控件，并复制粘贴若干个，这里添加了4个图框；

以及一个timer控件用于控制动画的动作效果，并设置图片变化的时间间隔即timer控件的interval属性，这里设置为500，单位为毫秒ms（1s=1000ms）。

然后得到了程序的简单界面。

程序启动后进行初始化，即在form_load事件中，加载动画图片，启动计时器。

图片框内加载图片语句：

例如在picture1中加载为:

picture1.picture=loadpicture（“图片路径”）;

启动计时器，timer控件的enabled属性为true。

这里是要达到“加载中”的动画效果，这里利用一个图片的移动，即一个不同于其他几个的图片，与原来位置的图片进行“互换”，来达到效果。当然还有其他方法。

利用“赋予”变量，来实现图片的互换；

外加简单的循环语句，即可实现多次互换。

下面是程序运行时的界面与动画代码。

在timer控件下，以一定的时间间隔执行事件，即完成了简单的”加载中“动画。

下面是程序运行时的gif图片。