[Gambas-user] Loading pictures

[Eric Damron]

Can someone send me a snippit showing how to load a picture into the 
various components that are designed to display them?  I have looked at 
an example that loads pictures into a drawing area but I must not get it 
because my own code doens't work.  Also I'm not sure a drawing area is 
what I really want.  I just want to display jpg pictures of the DVD 
covers on a DVD database.  My code looks like:

PRIVATE SUB SetCover(strPic AS String)
 
  DIM d AS DrawingArea
  DIM strS AS String
  DIM strPath AS String
  DIM hImage AS Image
 
  strPath = GetPicPath()
  strS = strPath & strPic

  IF Exist(strS) THEN
    hImage = NEW Image
    hImage.Load(strS)
    daCover.Resize(132, 204) 
    daCover.Clear()
    Draw.Begin(daCover)
    Draw.FillColor = Color.Gray
    Draw.FillStyle = Fill.Solid
    Draw.Rect(0, 0, daCover.Width, daCover.Height)
    Draw.Image(hImage, 0, 0)
    Draw.End
    daCover.Visible = TRUE
  END IF
 
END

Is there a easier / better component to use?

Thanks