好急~Visual Basic

加一個 PictureBox 同一個 Timer，Timer Interval 定為 5000。

在 Form Class 內宣告變數
Dim FileImage(2) As System.Drawing.Image
Dim i As Integer, n As Integer

在 Form.Load event 內
FileImage(0) = System.Drawing.Image.FromFile("c:\temp\image0.jpg")
FileImage(1) = System.Drawing.Image.FromFile("c:\temp\image1.jpg")
FileImage(2) = System.Drawing.Image.FromFile("c:\temp\image2.jpg")
n = FileImage.Length - 1 ' the upper bound of the array
i = 0

在 Timer.Tick event 內
If i > n Then i = 0
PictureBox1.Image = FileImage(i)
i += 1

2008-04-24 02:30:30 補充：
圖放在 VB Executable 的文件夾，可以不 hardcode 路徑

Dim dir = Environment.CurrentDirectory
FileImage(0) = System.Drawing.Image.FromFile(dir & "\image0.jpg")