Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
Call BitBlt(Picture1.hDC, 0, 0, 128, 16, RichTextBox1.hWnd, 0, 0, SRCCOPY)
End Sub

Private Sub Form_Load()
Me.ScaleMode = vbpixel
Picture1.ScaleMode = vbpixel
Picture1.Move 0, 0, 128, 16
End Sub
我是這樣做的