hdc

Public Sub ToImage(ByVal cntrl As RichTextBox, ByVal filename As String, ByVal inputformat As Imaging.PixelFormat, ByVal outputformat As Imaging.ImageFormat) Dim charfrom As Integer, charto As Integer ' Mark starting and ending character Dim cRange As...