LOCAL ARRAY laPrinters[1] IF APRINTERS(laPrinters) > 0 This.ColumnCount = 2 This.ColumnWidths = "150,120" FOR i=1 TO ALEN(laPrinters,1) * Double backslashes so item wouldn't be disabled laPrinters[i,1] = STRTRAN(laPrinters[i,1], "\", "\\") This.AddItem(laPrinters[i,1]) This.List[This.NewIndex, 2] = laPrinters[i,2] ENDFOR ENDIF This.ListIndex = 1>Hi all,
>IF APRINTERS(gaPrinters) > 0 >This.columcount = 2 >This.columnWidth = “150,120” > THIS.ROWSOURCETYPE = 5 > THIS.ROWSOURCE = 'gaPrinters' >ENDIF > >FOR x = 1 TO THIS.LISTCOUNT > THIS.PICTURE(x) = "Print.bmp" >ENDFOR > >This.ListIndex = 1 > >>