How to show all the list items in a display dialog box

[Alistair7]

When I use a dialog box like the following, lines 8 to 11 are hidden.
How can I have all eleven lines visible in the dialog box?
I know how to vary the position of the dialog box but not the size.

thanks

str s = "Line1[]Line2[]Line3[]Line4[]Line5[]Line6[]Line7[]Line8[]Line9[]Line10[]Line11"
sel list(s "Lines")
case 1 out "Line1"
case 2 out "Line2"
case 3 out "Line3"
case 4 out "Line4"
case 5 out "Line5"
case 6 out "Line6"
case 7 out "Line7"
case 8 out "Line8"
case 9 out "Line9"
case 10 out "Line10"
case 11 out "Line11"
case else out "Cancel"