[Fantastico]

ضع صندوق الصورة ومؤقت وزر صغير
وضع الكود التالي في المحرر

PHP كود :

Dim ImgList(1) As Image
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static num As Byte = 0

        If num = 0 Then num = 1 Else num = 0
        PictureBox1.Image = ImgList(num)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ImgList(0) = Image.FromFile("F:\picture.jpg")
        ImgList(1) = Image.FromFile("F:\ppp.bmp")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub