在 VB中 使 用 BitBlt確 實 存 在 這 樣 的 缺 陷 ， 解 決 的 辦 法 就 是 采 用 PaintPicture方 法 。 PaintPicture方 法 是 VB 4.0以 后 版 本 提 供 的 函 數 ， 它 的 功 能 和 用 法 都 同 Windows API的 BitBlt、 StretchBlt相 同 ， 速 度 上 略 慢 一 點 ， 但 一 般 不 明 顯 ， 優 點 是 不 管 PictureBox是 否 可 見 ， 都 可 以 正 確 復 制 圖 片 。 下 面 給 出 例 子 。 
    首 先 在 Form上 放 置 兩 個 大 小 相 同 的 PictureBox和 一 個 按 鈕 ， 其 中 Picture1為 源 圖 片 ， Picture2為 目 標 圖 片 ， 將 Picture1.Visible設 為 False， 將 兩 個 Picture的 ScaleMode設 為 Pixel(如 果 不 采 用 這 種 單 位 ， 你 需 要 修 改 下 面 的 一 些 參 數 )。 然 后 輸 入 以 下 代 碼 ： 
    Private Sub Command1_Click() 
     
    Picture2.Cls 
    nStep = 3 
    nWidth = 18 
    nHeight = Picture1.ScaleHeight 
    For j = 0 To nWidth Step nStep 
     For i = 0 To Picture1.ScaleWidth Step nWidth 
     nLeft = i + j 
     Picture2.PaintPicture Picture1.Picture, nLeft, 0, nStep, nHeight, _ 
     nLeft, 0, nStep, nHeight, vbSrcCopy 
     Next 
     For k = 1 To 200000: Next ' 延 時 
    Next 
    End Sub 
    一 切 OK。 
<END>