PUBLIC x
x=CREATEOBJECT('pics')

**************************************************
* -- Class:        pics (d:\vfp8\test.vcx)
 
* -- ParentClass:  form
 
* -- BaseClass:    form
 
* -- Time Stamp:   04/03/03 09:33:04 AM
 
*
DEFINE CLASS pics AS form

 Height =  461 
 Width =  600 
 DoCreate = .T.
 AutoCenter = .T.
 Caption =  "Form1" 
 Name =  "Form1" 

 ADD OBJECT list1 AS listbox WITH ;
  RowSourceType =  6 , ;
  RowSource =  "pics.name" , ;
  Height =  420 , ;
  Left =  12 , ;
  Top =  24 , ;
  Width =  169 , ;
  BoundTo = .T., ;
  Name =  "List1" 

 ADD OBJECT oleboundcontrol1 AS oleboundcontrol WITH ;
  Top =  24 , ;
  Left =  192 , ;
  Height =  420 , ;
  Width =  396 , ;
  ControlSource =  "pics.cont" , ;
  Stretch =  1 , ;
  AutoActivate =  1 , ;
  Name =  "Oleboundcontrol1" 

 PROCEDURE Init
 this.Visible= .T.
 WAIT CLEAR 
 ENDPROC

 PROCEDURE Load
  WAIT WINDOW  "Loading.."  NOWAIT NOCLEAR 
  LOCAL ARRAY picz[ 1 , 1 ]
  LOCAL n
  LOCAL i
  n=ADIR(picz,ADDBS(GETENV( "windir" ))+ "*.bmp" )
  CREATE CURSOR pics (name c( 30 ), cont g)
  FOR i= 1  TO n
   INSERT INTO pics (name) VALUES (JUSTSTEM(picz[i, 1 ]))
   APPEND GENERAL cont FROM (ADDBS(GETENV( "windir" ))+picz[i, 1 ])
  ENDFOR 
  GO TOP IN pics
 ENDPROC

ENDDEFINE
*
* -- EndDefine: pics
 
**************************************************