Sub Main

MsgBox "This example displays a dialog box that shows the difference between a single-line text box and a multi-line text box"

Begin Dialog TextBoxSample 16,30,180,96,"Text Boxes and Text"

OKButton 125,74,40,14

Text 8,8,32,8,"Single-line Text Box:"

TextBox 8,20,100,12,.TextBox1

Text 8,44,84,8,"Multi-line Text Box:"

TextBox 8,56,100,32,.TextBox2, 1

End Dialog

Dim Dlg1 As TextBoxSample

Button = Dialog ( Dlg1 )

End Sub