Dim index As Integer = Convert.ToInt32(e.CommandArgument)
        Dim myRow As GridViewRow = GridView2.Rows(index)
        Dim lab5 As Label = New Label

        Select Case e.CommandName
            Case "Select"
                lab5 = DirectCast(myRow.FindControl("Label2"), Label)
            Case "No Select"
                lab5 = DirectCast(myRow.FindControl("Label1"), Label)
                Me.TextBox2.Text = lab5.Text.ToString
        End Select

        Me.TextBox2.Text = lab5.Text.ToString