Hi Fred,
Try something like this:
lcPicture = GETFILE("BMP")
_SCREEN.AddObject("imgWallPaper","Image")
WITH _SCREEN.imgWallpaper
.Picture = lcPicture
.BorderStyle = 1
.Left = _SCREEN.Width/2 - .Width /2
.Top = _SCREEN.Height/2 - .Height/2
.Visible = .T.
ENDWITH