Public Class frmCheckLayout
 
    Dim WithEvents cbo As New ComboBox With {.Parent = Me, .Width = 160}
    Dim flp As New FlowLayoutPanel With {.Parent = Me, .Left = 200}
 
 
    Private Sub frmCheckLayout_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        With cbo.Items
            .Add("Mon") : .Add("Diens") : .Add("Mitt") : .Add("Donners")
        End With
 
        For i As Integer = 0 To cbo.Items.Count - 1
            flp.Controls.Add(New Label With {.Text = cbo.Items(i).ToString})
        Next i
    End Sub
 
    Private Sub cbo_SelectedIndexChanged(sender As Object, _
        e As System.EventArgs) Handles cbo.SelectedIndexChanged
 
        flp.Controls(cbo.SelectedIndex).Visible = _
          Not flp.Controls(cbo.SelectedIndex).Visible
    End Sub
End Class