Retrieveimage issue

[Cableguy]

Hi,

I have this code:

Sub Retrieve_Images
FileOpen(c1,apppath&"\ImageSet\standart.dat",cRandom)
Bin.New1(c1,true)
for x = 1 to Nrmg
ImageList.Add(Bin.RetrieveImage)
next n 
msgbox(imagelist.Count)
fileclose(c1)
End Sub

NrImg is a Global and is set in the caling sub...the standart file contains 50 files and the messagebox returns me 0...

Whats wrong?

FIXED: Never Mind, Its a typo...Nrmg is in fact NrImg, Thats what you get for buying cheap wirelles keyboads!!!!