Sub Button1_Click(sender As Object, e As EventArgs)
Dim chkCate As CheckBox
Dim lblID As Label
Dim i As Integer
lblText.Text = ""
For i = 0 To myDataList.Items.Count - 1
chkCate = myDataList.Items(i).FindControl("chkCateID")
lblID = myDataList.Items(i).FindControl("lblCateID")
IF chkCate.Checked = True Then
'*** Have lblID.Text ***'
Me.lblText.Text = Me.lblText.Text & "<br>" & lblID.Text
End IF
Next
End Sub