Public Sub Form_Open()
  Dim gw As GridView
  Dim b As Byte
  With ListBox1
    .List = ["DATO1.1\nDATO1.2", "DATO2.1\nDATO2.2"]
    gw = .Children[0]
  End With
  For b = 0 To ListBox1.List.Max
    gw.Rows[b].Height = -1
  Next
End