Option Strict On

'用意するもの＞PictureBox1個、Buttonコントロール2個 

'VisualBasic2008無料版 

Public Class Form1

    Private Const Eizou_suu As Integer = 10

    Private Eizou(Eizou_suu - 1) As Image

    Private NoFile As Integer = 0

    Public Sub New()



        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 



        'My.Resources.@@@@@の＠はリソース名前 

        Eizou(0) = My.Resources.ChocottoDerby_2008_1024_0710

        Eizou(1) = My.Resources.ChocottoDerby_2008_1024_0734

        Eizou(2) = My.Resources.ChocottoDerby_2008_1024_0826

        Eizou(3) = My.Resources.ChocottoDerby_2008_1024_0848

        Eizou(4) = My.Resources.ChocottoDerby_2008_1024_0851

        Eizou(5) = My.Resources.ChocottoDerby_2008_1024_0901

        Eizou(6) = My.Resources.ChocottoDerby_2008_1024_0920

        Eizou(7) = My.Resources.ChocottoDerby_2008_1024_0938

        Eizou(8) = My.Resources.ChocottoDerby_2008_1024_0944

        Eizou(9) = My.Resources.ChocottoDerby_2008_1024_0953

    End Sub

    Private Sub Hyouji()

        Me.PictureBox1.Image = Eizou(NoFile)

    End Sub



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

        NoFile -= 1

        If NoFile = -1 Then NoFile = 9

        Hyouji()

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        NoFile += 1

        If NoFile = 10 Then NoFile = 0

        Hyouji()

    End Sub

End Class