Option Explicit On
Option Strict On
 
Public Class Form1
 
    Private Function InitTList(ByVal clb As _
      System.Windows.Forms.CheckedListBox) As List(Of String)
        Dim TList As New List(Of String)
 
        For n As Integer = 0 To clb.Items.Count - 1
            If clb.GetItemCheckState(n) = CheckState.Checked Then
                TList.Add(CType(clb.Items(n), String))
            End If
        Next
        Return TList
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles Button1.Click
        Dim TList As New List(Of String)(Me.InitTList(Me.CheckedListBox1))
        If TList.Count > 0 Then
            Me.ListBox1.Items.Clear()
            For Each items As String In TList
                Me.ListBox1.Items.Add(items)
            Next
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
            Handles MyBase.Load
        CenterToScreen()
        For n As Integer = 0 To 4
            Me.CheckedListBox1.Items.Add("Fachbereich-" & CType(n, String))
        Next
    End Sub
 
End Class

Public Class frmCheckedItemsToText
 
    Dim sz As New Size(300, 300)
    Dim clbo As New CheckedListBox With {.Parent = Me, .Size = sz}
 
    Dim WithEvents btnChecked As New Button With
        {.Parent = Me, .Left = 310, .Width = 50, 
         .Text = " >> ", .Top = 120}
 
    Dim tbo As New TextBox With {.Parent = Me, .Left = 370, .Size = sz,
        .Multiline = True}
 
    Dim itemlist As New List(Of String)
 
 
    Private Sub frmChecked_Load(sender As Object, 
        e As EventArgs) Handles MyBase.Load
 
        'Beispiel-Liste
        For i As Integer = 0 To 20
            itemlist.Add("Item " & i.ToString)
        Next i
 
        clbo.DataSource = itemlist
    End Sub
 
 
    Private Sub SetCheckedItemsToText()
        'Checked-Items in Textbox übertragen
        tbo.Clear()
        For Each item As String In clbo.CheckedItems
            tbo.AppendText(item)
            tbo.AppendText(vbNewLine)
        Next item
    End Sub
 
 
    Private Sub btnChecked_Click(sender As Object, _
         e As EventArgs) Handles btnChecked.Click
 
        SetCheckedItemsToText()
    End Sub
End Class

 CheckedListBox1.Items.Clear()
        If AEKODATEN.Fachbereiche.Rows.Count > 0 Then
            For i As Integer = 0 To AEKODATEN.Fachbereiche.Rows.Count - 1
                CheckedListBox1.Items.Add(CStr(AEKODATEN.Fachbereiche.Rows( _
                  i).Item("Fachbereich")).ToString)
            Next
 
        End If

 Private Sub LoadCheckedListBox()
 
        If AEKODATEN.Fachbereiche.Rows.Count > 0 Then
            For i As Integer = 0 To AEKODATEN.Fachbereiche.Rows.Count - 1
                CheckedListBox1.Items.Add(CStr(AEKODATEN.Fachbereiche.Rows( _
                  i).Item("Fachbereich")).ToString)
            Next
 
        End If
    End Sub