Visual Basic

Public Class Form7

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.BackColor = Color.Ivory
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox2.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox3.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox4.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox5.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox6.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox7.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox8.Text = (OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Timer1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim max As Integer = 500
        Dim rnd As New Random
        Dim rand As Integer = rnd.Next(5, max + 1)

        Dim i As Integer = 1
        Dim number(max - 1) As Integer
        For i = 0 To max - 1
            If number(i) = rand Then
                rand = rnd.Next(1, max + 1)
                i = -1
            ElseIf number(i) = 0 Then
                number(i) = rand
                rand = rnd.Next(1, max + 1)
                If i = max - 1 Then
                    Exit For
                End If
                i = -1
            End If
        Next
        Timer1.Interval = number(i)
        i += 1
        ChangeImage()

    End Sub

    Private Sub ChangeImage()

        Static Dim iImage1 As Integer

        Select Case iImage1
            Case 0
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox1.Text)
                iImage1 += 1
            Case 1
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox2.Text)
                iImage1 += 1
            Case 2
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox3.Text)
                iImage1 += 1
            Case 3
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox4.Text)
                iImage1 += 1
            Case 4
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox5.Text)
                iImage1 += 1
            Case 5
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox6.Text)
                iImage1 += 1
            Case 6
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox7.Text)
                iImage1 += 1
            Case 7
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox8.Text)
                iImage1 += 1
            Case 8
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox9.Text)
                iImage1 += 1
            Case 9
                PictureBox1.Visible = True
                PictureBox1.Image = Image.FromFile(TextBox10.Text)
                iImage1 = 0
        End Select
    End Sub

End Class

Open "C:\" & "filename.txt" For Output As #1
            register = CStr(Date)
            Print #1, register
            Close #1