Richtextbox中输入字符，然后显示到picturebox，我要分段取，一段长为12，即len(richtextbox1.text)＝12，如果超过12将显示到另一个picturebox，意思就是richtextbox中的内容分成多个12长度的picturebox显示，如何做？请指教，谢谢！

看下圖，我的意思就是這樣的，上面的是richtextbox,下麵的picture1(0)是動態添加的
如果richtextbox里的字符多于abcdefghijklmnopqrstuvwx的長度，就自動添加下一個picture1(1)，並從x后將yz畫到picture1(1),如此而是，每abcdefghijklmnopqrstuvwx的長度畫到一個picture，如下圖

呵呵，这个当然简单，richtextbox里还有图片，我用的是bitblt函数,不知道如何取，可以整个地取

爲什麽我拷貝的是一塊黑的，什麽都沒有

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
我是這樣做的