让图片无迹可寻[8]

    '设置image1控件属性

    image1.stretch = true '图片自适应

    '将位图资源加载到image1控件中（105为资源编号）

    set image1.picture = objres.loadres(105, vbresbitmap)

    '释放资源

    set aimage = nothing

    set abutton = nothing

    set objres = nothing

end sub

至此，大功告成，一起来欣赏一下我们的最终作品（图4）。