1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 

Public Function GetWindowsCompanies(ByVal aLst As Windows.Forms.ListBox, ByRef a_blnAllCompanies As Boolean) As String
        Dim l_intIdx As Integer
        Dim l_strCompanies As String = ""
        Dim l_blnSelectedAll As Boolean = True

        For l_intIdx = 0 To aLst.Items.Count - 1
            If aLst.Items(l_intIdx).Selected Then
                l_strCompanies &= aLst.Items(l_intIdx).Value & ","
            Else
                l_blnSelectedAll = False
            End If
        Next

        a_blnAllCompanies = l_blnSelectedAll

        If l_strCompanies.Length = 0 Then
            Return ""
        End If

        Return l_strCompanies.Substring(0, l_strCompanies.Length - 1)
    End Function