图片浏览器里怎么加入缩放功能呀？求各位大神帮帮忙，求代码

一个pic控件（装有图片，），两个cmd控件（一个放大cmd1，一个缩小cmd2）
先把pic的Autosize属性值设定为ture
dim i x as integer
private sub cmd1_click()
    picture1.refresh
    i = i + 10
    picture1.paintpicture picture1.picture, 0 , 0 , picture1.width + i, picture1.height + i
    end sub
这个是放大的 单击每次放大10个单位值
private sub cmd2_click
    picture1.refresh
    i = i - 10  
    picture1.paintpicture picture1.picture,0 , 0 , picture1.width + i,picture1.height + i
    end sub
这个是缩小的 单击每次缩小10个单位值
电脑里没VB.不过 大概就是这样了