C# と VB.NET の質問掲示板

Microsoft Visual Basic 2008で
txtrowsとtxtcolmnsに入力された数字分PictureBoxを生成するプログラムを作りました。
そこで生成されたPictureBoxをクリックするとが変わるようにしたいのですが、
どのように書いたらいいのかわかりません。ご指南お願いします。

このような感じです
http://www.dotup.org/uploda/www.dotup.org256643.bmp

*****コード*****


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        Dim x As Integer = 10
        Dim y As Integer = 10
        Dim count As Integer = Txtcolumns.Text * Txtrows.Text
        Dim pic(count) As PictureBox
        Dim rows, columns As Integer

        For rows = 0 To Txtrows.Text - 1

            For columns = 0 To Txtcolumns.Text - 1
                pic(i) = New PictureBox
                With pic(i)
                    .Size = New Size(10, 10)
                    .Location = New Point(x, y)
                    .BackColor = Color.Aqua
                End With
                Me.Controls.Add(pic(i))
                x += 11
                i += 1
            Next
            y += 11
            x = 10
        Next
    End Sub
End Class

■No38577 (aion さん) に返信

PictureBoxのクリックイベントを生成して、PictureBoxのクリックイベントで色を変える

Me.Controls.Add(pic(i))の↓に追加
AddHandler pic(i).Click, AddressOf PictureBox_Click

Private Sub PictureBox_Click(ByVal sender As Object, ByVal e As System.EventArgs)
　    'senderに、クリックしたPictureBoxがセットされている。
　    DirectCast(sender,PictureBox).BackColor = Color.Red
End Sub

あ、未検証です。