是可以拉伸的
-----------------------------------------
Private Sub form_paint()
'拉伸程序
Dim x1 As Single, y1 As Single
Dim pwidth As Single, pheight As Single
pwidth = Form1.ScaleWidth
pheight = Form1.ScaleHeight
y1 = 100
x1 = 100
DoEvents
Image1.Width = Form1.ScaleWidth
Image1.Height = Form1.ScaleHeight
Me.PaintPicture Image1.Picture, x1, y1, pwidth, pheight
End Sub