Is there a way to Zoom a Rich Textbox's contents in VB6?

I am try开发者_如何学Going to zoom (resize) the contents of a rich text box in VB6 so that all the content is visible. (I zoom out until the scroll bars disapear).

No, but you might be able to simulate it by the following.

• create a large form and position if offscreen somewhere
• put your RichEdit (or a copy of it) onto this form
• size the RichEdit so that it can hold everything without scrollbars
• create a memory dc (CreateDC) and select a bitmap into it that's large enough to hold the contents of your RichEdit (CreateDIBSection)
• send the offscreen RichEdit a WM_PRINTCLIENT message containing the memory DC

• StretchBlt from the Memory DC to the screen where you want your zoomed view.

  (whew!)