no sir, it didn't give any collections...

Another thing sir,
I have this take snapshot button to give an output in an image box:

strFileName=sys(5) +sys(2003)+ "\" + allt(str(thisform.temp))+".bmp"

result = thisform.VideoCap1.SnapShot(strFileName)
thisform.image1.picture=strFileName


thisform.temp = thisform.temp + 1

but it gives an error like the same one...

Nap