Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        weekPlanner1.Columns.Add("ColumnName1", "Name", 150)
        weekPlanner1.Columns.Add("ColumnName2", "Vorname", 150)
        ' 150 is the width of colum
 
        ' Tage beschreiben
        Dim itemCollection = New WeekPlanner.WeekPlannerItemCollection
        Dim item = New WeekPlanner.WeekPlannerItem
        item.StartDate = DateTime.Now.AddDays(0)
        item.EndDate = DateTime.Now.AddDays(0)
        item.Subject = "1 date"
        item.BackColor = Color.YellowGreen
        itemCollection.Add(item)
 
        item = New WeekPlanner.WeekPlannerItem
        item.StartDate = DateTime.Now.AddDays(-1)
        item.EndDate = DateTime.Now.AddDays(5)
        item.Subject = "4 date"
        item.BackColor = Color.Blue
        itemCollection.Add(item)
 
 
        Dim ColumnRows = New DataColumns(weekPlanner1.Calendar)
        ColumnRows("ColumnName1").Data.Add("Hans")
        ColumnRows("ColumnName2").Data.Add("Muster")
        weekPlanner1.Rows.Add(ColumnRows, itemCollection)
 
    End Sub