小吳 VBQA 程式設計討論

Option Explicit
'需在Form_load事件中將image1的圖放大一倍,
'並同時也在Form_load事件中將放大後的圖,指定給picture1.
'但我下面的寫法picture1卻一直是顯示原image1未放大的圖
'不知要怎麼寫才能使picture1收到的是image1放大後的圖
Private Sub Form_Load()
Image1.Stretch = True
Picture1.AutoSize = True
Image1.Height = Image1.Height * 2
Set Picture1.Picture = Image1.Picture
Picture1.Picture = Image1.Picture

End Sub