ADD OBJECT List1 AS ListBox WITH Width = 200, Height = 100, Top = 5, Left = 5, RowSourceType = 1, RowSource = "xls,dbf", ListIndex = 1