[SaLoOoMX]

اضف الصور الى الريسورس واكتب الكود الاتي

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim I As Integer
        I = Rnd() * 8


        Select Case I
            Case 1
                PictureBox1.Image = My.Resources.Chrysanthemum
            Case 2
                PictureBox1.Image = My.Resources.Desert
            Case 3
                PictureBox1.Image = My.Resources.Hydrangeas
            Case 4
                PictureBox1.Image = My.Resources.Jellyfish
            Case 5
                PictureBox1.Image = My.Resources.Koala
            Case 6
                PictureBox1.Image = My.Resources.Lighthouse
            Case 7
                PictureBox1.Image = My.Resources.Lighthouse
            Case 8
                PictureBox1.Image = My.Resources.Penguins

        End Select


    End Sub