I don't have a error message. My combo display only 55 lines
with images. Here down the RefreshPic method tha i use.
---
local nItem, cPic
if not empty(thisform.aLicoes)
cPic = ''
with thisform
for nItem = 1 to .lstLicoes.ListCount
do case
case thisform.aLicoes[nItem,4] = 'TEO'
cPic = "bitmaps\teo3.bmp"
case thisform.aLicoes[nItem,4] = 'TEC'
cPic = "bitmaps\tec2.bmp"
case thisform.aLicoes[nItem,4] = 'PRA'
cPic = "bitmaps\pra4.bmp"
case thisform.aLicoes[nItem,4] = 'LOC'
cPic = "bitmaps\lock3.bmp"
otherwise
cPic = "bitmaps\clock2.bmp"
endcase
.lstLicoes.Picture(nItem) = cPic
next
endwith
endif
---
the value of .lstLicoes.ListCount is 65 lines.