lcImage = "IVFAdvPlusLIM256.tif" lcBgType = "CENTER" IF NOT PEMSTATUS(_Screen, "oImg", 5) _Screen.AddObject("oImg", "Image") ENDIF WITH _Screen.oImg .Visible = .F. .Stretch = 0 .Picture = lcImage DO CASE CASE lcBgType == "STRETCH" .Top = 0 .Left = 0 .Stretch = 2 .Height = _Screen.Height .Width = _Screen.Width CASE lcBgType == "ISOMETRIC" .Stretch = 1 .Height = _Screen.Height .Width = _Screen.Width .Top = (_Screen.Height - .Height) / 2 .Left = (_Screen.Width - .Width) / 2 CASE lcBgType == "CENTER" .Stretch = 0 .Top = (_Screen.Height - .Height) / 2 .Left = (_Screen.Width - .Width) / 2 OTHERWISE .Top = 0 .Left = 0 .Stretch = 0 ENDCASE .Visible = .T. ENDWITH