Attribute VB_Name = "testImage6"
Sub ƒeƒXƒg()
    Load sampleForm
    sampleForm.flowerImage.Picture = LoadPicture("c:\tmp\flower.jpg")
    sampleForm.flowerImage.BackColor = RGB(255, 0, 0)
    sampleForm.flowerImage.BackStyle = fmBackStyleOpaque
    sampleForm.Show
End Sub