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

Sub Main()
    Dim MyList$ (5)
    MyList (0) = "line Item 1"
    MyList (1) = "line Item 2"
    MyList (2) = "line Item 3"
    MyList (3) = "line Item 4"
    MyList (4) = "line Item 5"
    MyList (5) = "line Item 6"
    Begin Dialog BoxSample 16,35,256,89,"List Box, Combo Box, and Drop-Down List Box"
        OKButton 204,24,40,14
        CancelButton 204,44,40,14
        ListBox 12,24,48,40, MyList$( ),.Lstbox
        DropListBox 124,24,72,40, MyList$( ),.DrpList
        ComboBox 68,24,48,40, MyList$( ),.CmboBox
        Text 12,12,32,8,"List Box:"
        Text 124,12,68,8,"Drop-Down List Box:"
        Text 68,12,44,8,"Combo Box:"
    End Dialog
    Dim Dlg1 As BoxSample
    Button = Dialog ( Dlg1 )
End Sub