
SAMPLE CODE

This code allows you to center the image in the back picture property

Dim BP As StdPicture
    
'Load bitmap image into background using Back picture property
    dlgEdit.Filter = "Bitmap (*.bmp)|*.bmp"
    dlgEdit.FileName = ""
    dlgEdit.ShowOpen
    
    Set BP = LoadPicture(dlgEdit.FileName)
    Dim lWidth As Long, lHeight As Long
    lWidth = Me.ScaleX(BP.Width, vbHimetric, vbTwips)
    lHeight = Me.ScaleY(BP.height, vbHimetric, vbTwips)
    ATX451.BackPicture = BP
    ATX451.BackPictureX = (ATX451.DocWidth - lWidth) / 2
    ATX451.BackPictureY = (ATX451.height - lHeight) / 2
    ATX451.BackPictureRefresh = 1