Private Sub SetKalender()
        Dim merkbreite, merkhöhe, merktop, merkleft, Spaltenzähler As Integer
        If TBBTickets.Pushed = True Then
            merkbreite = (Me.Width - C1Grid.Width) / Spalten
        Else
            merkbreite = Me.Width / Spalten
        End If
 
        merkhöhe = (Me.Height - ToolBar1.Height - Panel1.Height) / Zeilen
        merktop = ToolBar1.Height + Panel1.Height
        merkleft = 0
        Dim sql As String
 
        Dim i, KalCount As Integer
        If Zeilen * Spalten > dtKalender.Rows.Count - 1 Then
            KalCount = dtKalender.Rows.Count
        Else
            KalCount = Zeilen * Spalten
        End If
 
        ReDim Preserve Kals(KalCount - 1)
        ReDim Preserve Labels(KalCount - 1)
        ReDim Preserve Btns(KalCount - 1)
        For i = 0 To dtKalender.Rows.Count - 1
            Spaltenzähler += 1
 
            label = New System.Windows.Forms.Label
            label.Location = New System.Drawing.Point(merkleft, merktop)
            label.Size = New System.Drawing.Size(merkbreite - btnSize.Width - _
              5, LKalender.Height)
            label.BackColor = LKalender.BackColor
            label.ForeColor = LKalender.ForeColor
            label.TextAlign = LKalender.TextAlign
            label.Text = dtKalender.Rows(i)("Bezeichnung")
            Me.Controls.Add(label)
            Labels(i) = label
 
            btn = New System.Windows.Forms.Button
            btn.Location = New System.Drawing.Point(merkleft + label.Width, _
              merktop)
            btn.Size = btnSize.Size
            btn.Text = btnSize.Text
            btn.Tag = i
            btn.TextAlign = btnSize.TextAlign
            AddHandler btn.Click, AddressOf btnSize_Click
            Me.Controls.Add(btn)
            Btns(i) = btn
 
            Kalender = New AxMicrosoft.Office.Interop.OutlookViewCtl.AxViewCtl
            Kalender.Tag = i
            Kalender.Name = "Kalender" & i
            Kalender.Size = New System.Drawing.Size(merkbreite, merkhöhe - _
              LKalender.Height)
            Kalender.Location = New System.Drawing.Point(merkleft, merktop + _
            LKalender.Height)
            If Spaltenzähler = Spalten Then
                Spaltenzähler = 0
                merkleft = 0
                merktop = merktop + merkhöhe
            Else
                merkleft = merkleft + merkbreite
            End If
            Me.Controls.Add(Kalender)
            Kals(i) = Kalender
            Anzahl += 1
            AddHandler Kalender.SelectionChange, AddressOf _
              Me.Kal_SelectionChanged
 
            Select Case dtKalender.Rows(i)("Art")
                Case 1
                    Try
                        Kalender.Folder = dtKalender.Rows(i)("Ordner")
                        Kalender.View = "Tages-/Wochen-/Monatsansicht"
                    Catch ex As Exception
                        sql = "Kalender: " & dtKalender.Rows(i)("Ordner") & "" & _
                          "existiert nicht! Es wird der Standardkalender" & _
                          "eingeblendet!"
                        Me.Visible = True
                        MsgBox(sql, MsgBoxStyle.Exclamation + _
                          MsgBoxStyle.OKOnly)
                        Kalender.Folder = "Kalender"
                    End Try
                Case 2
 
                Case 3
 
            End Select
            Kalender.DeferUpdate = False
            Kalender.Visible = True
            If i = (KalCount) - 1 Then Exit For
        Next
    End Sub