CREATE CURSOR temp (genlfield G)
APPEND BLANK
* Add a picture - the "class" to use depends on your
* Windows installation - this is for Win95.
APPEND GENERAL genlfield ;
  FROM _SAMPLES + "Tastrade\Bitmaps\ttradesm.bmp" ;
  CLASS "Paint.Picture"
* Create a form with a bound control.
oForm=CREATEOBJECT("form")
oForm.AddObject("olbPic","OLEBoundControl")
* Size the control to a decent size.
oForm.olbPic.Width = .9 * oForm.Width
oForm.olbPic.Height = .9 * oForm.Height
* Point it to the data source and display the form.
oForm.olbPic.ControlSource = "Temp.GenlField"
oForm.olbPic.Visible = .t.
oForm.show(1)