image升缩模式

Question

我用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
发现装载一幅图片后. 点击复选框可以从拉伸模式转到正常模式. 却无法从正常模式转到拉伸模式. 不知道是否哪里设置错了?

Answer 1

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