第2个回答 2015-07-11
Option Explicit
Dim img As IPictureDisp
Private Sub Form_Load()
Set img = LoadPicture("F:\1.jpg")
Me.AutoRedraw = True
Call Form_Resize
End Sub
Private Sub Form_Resize()
Me.PaintPicture img, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub本回答被提问者和网友采纳