image升缩模式,该怎么解决

image升缩模式
我用image控件放一幅图片.   用一个复选框来选择是否有自动拉伸功能.
Private   Sub   Check1_Click()
If   Check1.Value   =   1   Then
        Image1.Stretch   =   True
        Image1.Refresh
Else
        Image1.Stretch   =   False
        Image1.Refresh
End   If
End   Sub
发现装载一幅图片后.   点击复选框可以从拉伸模式转到正常模式.   却无法从正常模式转到拉伸模式.   不知道是否哪里设置错了?

[解决办法]
能从正常模式转到拉伸模式，只不过Image1尺寸变得刚刚好。要从新指定Image1尺寸，如：
Image1.Width = 5000
Image1.Height = 3000
Image1.Stretch = True