With NpanFoodPlanDays
            .Size = New Size(322, 425)
            .Location = New Point(Me.Left, Me.Height)
            .BackColor = Color.DimGray
            cboWeekDays.Items.AddRange(New Object() {"Mandag", "Tirsdag", _
              "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag"})
        End With

    Private Sub cboWeekDays_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles cboWeekDays.SelectedIndexChanged
        Dim lbl As New Label
 
        With lbl
            .Name = cboWeekDays.Text
            .Text = cboWeekDays.Text
            .Font = New Font(FName, 12, FontStyle.Regular)
            .ForeColor = SystemColors.Control
            .BackColor = NpanFoodPlanDays.BackColor
        End With
 
        If flpFoodPlanDays.Controls.Count > 0 Then
            For Each lb As Control In flpFoodPlanDays.Controls
                If lb.Name = cboWeekDays.Text Then
                    lb.Dispose()
                    Exit Sub
                Else
                    flpFoodPlanDays.Controls.Add(lbl)
                End If
            Next