Public Class Form1



    Dim eventList As New List(Of EventHandler)()

    Dim eventCounter As Integer = 0



    Private Sub changeEvent()

        RemoveHandler Button1.Click, eventList(eventCounter)

        If eventCounter < eventList.Count - 1 Then

            eventCounter += 1

        End If

        AddHandler Button1.Click, eventList(eventCounter)

    End Sub



    Public Sub New()



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

        InitializeComponent()



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

        eventList.Add(AddressOf あの日)

        eventList.Add(AddressOf あの時)

        eventList.Add(AddressOf あの場所で)



        AddHandler Button1.Click, eventList(eventCounter)

    End Sub



    Private Sub あの日(ByVal sender As Object, ByVal e As EventArgs)

        Me.Label1.Text = "あの日"

        changeEvent()

    End Sub



    Private Sub あの時(ByVal sender As Object, ByVal e As EventArgs)

        Me.Label1.Text = "あの時"

        changeEvent()

    End Sub



    Private Sub あの場所で(ByVal sender As Object, ByVal e As EventArgs)

        Me.Label1.Text = "あの場所で"

        changeEvent()

    End Sub



End Class