Public Sub Form_Open()

  Dim hHBox As HBox
  Dim hVBox As VBox
  Dim hTextLabel As TextLabel
  Dim oPanel As Panel
  Dim hLabel As Label

  With Me
    .Arrangement = Arrange.Vertical
    .Margin = True
  End With
  With hHBox = New HBox(Me)
    .AutoResize = True
    .Background = Color.SoftMagenta
  End With
  With hVBox = New VBox(hHBox)
    .Background = Color.SoftRoyal
    .AutoResize = True
    .Width = 100
  End With
  With hTextLabel = New TextLabel(hVBox)
    .AutoResize = True
    .Foreground = Color.Royal
    .Width = hVBox.Width
    .Text = "Sono un testo veramente lungo per poter stare entro i miei confini (100 px), ciò nonostante ottengo lo spazio necessario in altezza"
  End With
  With oPanel = New Panel(Me)
    .Expand = True
    .Arrangement = Arrange.Fill
  End With
  With hLabel = New Label(oPanel)
    .Alignment = Align.Center
    .Background = Color.SoftYellow
    .Foreground = Color.LightBackground
    .Text = "SONO UN PANEL\nCON PROPRIETÀ\nEXPAND = TRUE"
    .Font.Size = 16
    .Font.Bold = True
  End With

End

Public Sub Form_Open()

  Dim hComboBox As ComboBox
  Dim aList As String[] = ["Pippo", "Pluto", "Paperino", "Topolino", "Minni"]
  
  hComboBox = Me["ComboBox1"]
  hComboBox.List = aList

End