Public Class Form1



    Private _messages() As String = New String() {"あの日", "あの時", "あの場所で"}

    Private _index As Integer = 0



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

        TextBox1.Text = _messages(_index)

        _index += 1

        If _index >= 3 Then

            _index = 0

        End If

    End Sub



End Class