Attribute VB_Name = "testImage5"
Sub ƒeƒXƒg()
    Load sampleForm
    sampleForm.flowerImage.Picture = LoadPicture("c:\tmp\flower.jpg")
    sampleForm.flowerImage.PictureAlignment = fmPictureAlignmentBottomLeft
    sampleForm.flowerImage.PictureTiling = True
    sampleForm.flowerImage2.Picture = LoadPicture("c:\tmp\flower.jpg")
    sampleForm.flowerImage2.PictureAlignment = fmPictureAlignmentTopRight
    sampleForm.flowerImage2.PictureTiling = True
    sampleForm.Show
End Sub