获取checkboxlist多选值

'获取checkboxlist多选值
    Public Function Check_Clicked(ByVal sender As [Object], ByVal e As EventArgs) As String

        Dim cklValue As String = ""

        ' Iterate through the Items collection of the CheckBoxList
        ' control and display the selected items.
        Dim i As Integer = 0
        While i < cblSoftWarePlatform.Items.Count

            If cblSoftWarePlatform.Items(i).Selected Then

                cklValue += cblSoftWarePlatform.Items(i).Text + "/"

            End If
            i = i + 1
        End While

        Return cklValue

    End Function