第3个回答 2010-12-30
'加个 Image1
Private Sub Form_Load()
Image1.ZOrder 1: Image1.Stretch = True
'加载图片,也可事先装载
Image1.Picture = LoadPicture("C:\WINDOWS\Web\Wallpaper\bliss.jpg")
End Sub
Private Sub Form_Resize()
Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub