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