Pseudocode, not tested

lnNumberoffiles=adir(afiles,'yourdir\*.jpg')
lQuit=.f.
on Escape lQuit=.T.
do while !lQuit 
   for lnX=1 to lnNumberoffiles
      yourimage.picture=afiles(lnNumberoffiles)
      yourimage.refresh()
      Inkey(10,'shk') && 10 seconds
   endfor
enddo

>I have some pictures in a folder. I want to run a slide show on a form.thanks