DECLARE SUB lstMain.Load ()
DECLARE SUB lstMain.Show ()
DECLARE SUB lstMain.SetFocus ()

'$DYNAMIC
'$INCLUDE: 'dialog.bi'
DEFINT A-Z

DIM lstMainInfo AS ListBoxGroupType
DIM lstMainData(0) AS ListBoxItemType

lstMain.Load

scrCurtain

lstMain.Show
lstMain.SetFocus

KILL "newlist.txt"

REM $STATIC
SUB lstMain.Load

SHARED lstMainInfo AS ListBoxGroupType
SHARED lstMainData() AS ListBoxItemType

DIM Array(0) AS STRING

High = 2
CALL DirList(Array(), "c:\qb45", High, "NewList.txt")

lstMainInfo.FileName = "NewList.txt"
lstMainInfo.Corner.T = 5
lstMainInfo.Corner.L = 20
lstMainInfo.Corner.B = 20
lstMainInfo.Corner.R = 75
lstMainInfo.ColMulti = TRUE

CALL lstLoad(lstMainData(), lstMainInfo)

END SUB

SUB lstMain.SetFocus

SHARED lstMainInfo AS ListBoxGroupType
SHARED lstMainData() AS ListBoxItemType

a% = Main.List%(lstMainData(), lstMainInfo)

END SUB

SUB lstMain.Show

SHARED lstMainInfo AS ListBoxGroupType
SHARED lstMainData() AS ListBoxItemType

CALL lstShow(lstMainData(), lstMainInfo, FALSE)

END SUB