你 可 以 Form上 放 置 一 個 PictureBox， 將 Visible屬 性 設 為 False， AutoSize屬 性 設 為 True。 將 PictureBox的 Picture屬 性 設 置 為 你 需 要 的 圖 片 。 然 后 在 Form_Paint事 件 中 輸 入 如 下 代 碼 ： 
    Private Sub Form_Paint() 
     Dim wid As Single 
     Dim hgt As Single 
     Dim x As Single 
     Dim y As Single 
     
     wid = Picture1.ScaleWidth 
     hgt = Picture1.ScaleHeight 
     y = 0 
     Do While y < ScaleHeight 
     x = 0 
     Do While x < ScaleWidth 
     PaintPicture Picture1.Picture, _ 
     x, y, wid, hgt 
     x = x + wid 
     Loop 
     y = y + hgt 
     Loop 
    End Sub 
<END>