Friend Function InitializeTouren(ByVal fOwner As Form, ByVal iTourenA As _
    Integer, ByVal iTourenB As Integer) As Boolean
    Dim Tour() As UserControls.grpTouren
    Dim grpTouren As New List(Of UserControls.grpTouren)
 
    ReDim Tour(0 To iTourenA)
    For I As Integer = 1 To iTourenA
      Tour(I) = New UserControls.grpTouren
      Tour(I).Top = 12 + 20
      Tour(I).Left = 12 + 15 * I + Tour(I).Width * (I - 1)
      Tour(I).Name = "grpTour" & I.ToString
      Tour(I).lblCaption.Text = "T " & I.ToString()
      For Each oGroup As Object In fOwner.Controls
        If TypeOf oGroup Is GroupBox And oGroup.name = "grpLogistik" Then
          For Each oObject As Object In oGroup.Controls
            Debug.Print(oObject.Name)
            If TypeOf oObject Is ComboBox And oObject.Name = "cmbTour" Then
              oObject.items.add(Tour(I).lblCaption.Text)
              GoTo out1
            End If
          Next
        End If
      Next
Out1:
      grpTouren.Add(Tour(I))
    Next
 
    fOwner.Controls.AddRange(grpTouren.ToArray())
    fOwner.Controls("grpTour").SendToBack()
    For Each oObject As Object In fOwner.Controls
      If TypeOf oObject Is ComboBox And oObject.name = "cmbTour" Then _
        oObject.selectedindex = 1
    Next
  End Function