Listview ItemTemplate RadTextBox Control adjust rows

See more:

VB

ASP.NET

I have a RadTextBox in a ListView ItemTemplate and I am wanting to adjust he number of rows depending on the length of the data. I tried to reference the RadTextBox in the ListView ItemBound event, but I am getting error: "txtReviewercomments" is not declared. It may be inaccessible due to its protection level.

Here is be ASPX

<pre>                        <asp:ListView ID="ListViewAssessmentComment" runat="server" DataKeyNames="ID" Visible="false"
                            DataSourceID="AssessmentCommentsData" InsertItemPosition="LastItem">
                            <ItemTemplate>
                                <tr style="background-color: #FFFFFF; color: #000000;">
                                    <td rowspan="2">
                                        <asp:ImageButton ID="ImageButtonEdit" runat="server" ImageUrl="~/Images/Edit.gif"
                                            CommandName="Edit" />
                                        <br />
                                        <asp:Label ID="Label1" runat="server" Text='<%# Eval("PMID") %>' Visible="false"
                                            Font-Size="XX-Small" />
                                    </td>
                                    <td rowspan="2">
                                        <telerik:RadTextBox ID="ReviewCommentsLabel" runat="server" TextMode="MultiLine"
                                            Resize="Vertical" BackColor="White" Width="750px" ForeColor="Black" ReadOnly="true"
                                            Font-Size="Small" Text='<%# Eval("ReviewComments") %>'>
                                        </telerik:RadTextBox>
                                    </td>
</pre>

Here is my VB.NET code

<pre>    Private Sub ListViewAssessmentComment_ItemDataBound(sender As Object, e As System.Web.UI.WebControls.ListViewItemEventArgs) Handles ListViewAssessmentComment.ItemDataBound


        If e.Item.ItemType = ListViewItemType.DataItem Then
            Dim txtReviewercomments = DirectCast(e.Item.FindControl("ReviewCommentsLabel"), RadTextBox)
        End If

        If Not IsNothing(txtReviewercomments) Then
            If Len(txtReviewercomments) > 80 Then
                txtReviewercomments.Rows = ((Len(txtReviewercomments.Text) * 10) / 750) + 1
            Else
                txtReviewercomments.Rows = 1
            End If
        End If
    End Sub