vb随机显示图片

根目录下建一个文件夹PIC，在PIC下存放5张图片，

名称分虽是1，2，3，4，5

然后添加一个timer1控件，一个image1控件，

它的interval设5000（即5秒）

写如下代码

Private Sub Form_Load()

Dim i As Integer

Image1.Picture = LoadPicture(App.Path & "pic\1.bmp")

End Sub

Private Sub Timer1_Timer()

i = Int(Rnd * 5 + 1)

Image1.Picture = LoadPicture(App.Path & "\pic\" & i & ".bmp")

End Sub