可以将RTF文件内容保存为图片吗?怎么实现?

Option Explicit

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

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()



Dim hdcRich As Long

Me.ScaleMode = 3

Me.RichTextBox1.LoadFile "c:\test.rtf"

hdcRich = GetDC(RichTextBox1.hwnd)

Debug.Print BitBlt(Picture1.hDC, 0, 0, Me.RichTextBox1.Width, Me.RichTextBox1.Height, hdcRich, 0, 0, vbSrcCopy)

End Sub