' Return a comma delimited list of items selected in a List control (e.g. ' ListBox, CheckBoxList)'' Example:' Dim selections As String = GetListSelections(CheckBoxList1)Function GetListSelections(ByVal listCtl As _    System.Web.UI.WebControls.ListControl) As String    Dim selections As New System.Text.StringBuilder    Dim sep As String = ""    ' add to the list each selected item    For Each item As System.Web.UI.WebControls.ListItem In listCtl.Items        If item.Selected Then            selections.Append(sep).Append(item.Value)            sep = ", "        End If    Next    Return selections.ToString()End Function