อยากถาม วิธี เก็บปุ่มที่กดไว้หลายๆปุ่ม เพื่อเอามาสั่่งในภายหลังครับ

Public Class frmTheater120Seat
    Dim dt As New DataTable

    Private Sub frmTheater_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackgroundImage = Cinema.My.Resources.Resources.Theater
        dtAddRowSeat()
    End Sub

    Private Sub Seat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
    A1.Click, A2.Click, A3.Click, A4.Click, A5.Click, A6.Click, A7.Click, A8.Click, A9.Click, A10.Click, A11.Click, A12.Click, A13.Click, _
    B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, B8.Click, B9.Click, B10.Click, B11.Click, B12.Click, B13.Click, B14.Click, _
    C1.Click, C2.Click, C3.Click, C4.Click, C5.Click, C6.Click, C7.Click, C8.Click, C9.Click, C10.Click, C11.Click, C12.Click, C13.Click, _
    D1.Click, D2.Click, D3.Click, D4.Click, D5.Click, D6.Click, D7.Click, D8.Click, D9.Click, D10.Click, D11.Click, D12.Click, D13.Click, D14.Click, _
    E1.Click, E2.Click, E3.Click, E4.Click, E5.Click, E6.Click, E7.Click, E8.Click, E9.Click, E10.Click, E11.Click, E12.Click, E13.Click, _
    F1.Click, F2.Click, F3.Click, F4.Click, F5.Click, F6.Click, F7.Click, F8.Click, F9.Click, F10.Click, F11.Click, F12.Click, F13.Click, F14.Click, F15.Click, F16.Click, F17.Click, F18.Click, _
    G1.Click, G2.Click, G3.Click, G4.Click, G5.Click, G6.Click, G7.Click, G8.Click, G9.Click, G10.Click, G11.Click, G12.Click, G13.Click, G14.Click, G15.Click, G16.Click, G17.Click, _
    H1.Click, H2.Click, H3.Click, H4.Click, H5.Click, H6.Click, H7.Click, H8.Click, H9.Click, H10.Click, H11.Click, H12.Click, H13.Click, H14.Click, H15.Click, H16.Click, H17.Click, H18.Click



        Dim btn As New Button
        btn = sender

        If btn.BackColor = Color.White Then
            btn.BackColor = Color.Aqua
            dt.Rows.Add(btn.Name)
        ElseIf btn.BackColor = Color.Aqua Then
            btn.BackColor = Color.White
            Dim idx As DataRow
            idx = dt.Rows.Find(btn.Name)
            dt.Rows.Remove(idx)
        End If
    End Sub

    Private Sub dtAddRowSeat()
        dt.Columns.Add("Seat")
        dt.PrimaryKey = New DataColumn() {dt.Columns("Seat")}
    End Sub


    Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
        For i = 0 To dt.Rows.Count - 1
            Dim str As String = Trim(dt.Rows(i).Item(0).ToString)
            Dim matchingControls As Control() = Controls.Find(str, True)
            If matchingControls.Length = 1 Then
                DirectCast(matchingControls(0), Button).Enabled = False
                DirectCast(matchingControls(0), Button).BackColor = Color.Gray
            End If
        Next
        dt.Rows.Clear()
    End Sub

End Class