{currenthelptext} {product} {helptype} {viewcore}

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
        CancelButton 125,55,40,14
        Text 8,44,84,8,"Single-lineText Box:"
        TextBox 8,20,100,12,.TextBox1
        Text 8,44,84,8,"Multi-lineText Box:"
        TextBox 8,56,100,32,.TextBox2,1
    End Dialog
    Dim Dlg1 As TextBoxSample
    Button = Dialog ( Dlg1 )
End Sub