窗體中的背景圖片隨窗體大小而變化

1.   在窗體的picture屬性中放入一幅圖片.  
  2.   在窗體中寫入下面代碼:  
   
  Option   Explicit  
   
  Private   Sub   Form_Load()  
          Me.AutoRedraw   =   True  
  End   Sub  
   
  Private   Sub   Form_Resize()  
          Me.PaintPicture   Me.Picture,   0,   0,   Me.ScaleWidth,   Me.ScaleHeight  
  End   Sub