CommonControls (Replacement of the MS common controls)

[softv]

Hi Krool,

Please refer to my message #1363 and your reply message #1364 (related to the RichTextBox control).

With respect to the solution you provided to fix one error at it's root cause, what happens now is that whenever my RichTextBox control (say, rtb1) becomes empty (i.e. having no text), the following error occurs:
"Subscript out of range"

The above-mentioned error occurs at the following line:

ReDim StreamStringIn(0 To StreamStringInLength - 1) As Byte

This is because 'StreamStringInLength' is 0.

So, at my end, I am keeping your old lines of code itself (i.e. without adding '-1') and hence I am still resorting to use my following line of code:

Value = Left$(Value, Len(Value))

I, in fact, have one more line of code before the above line to tackle the issues related to VbCrLf. It is as follows:

Value = Replace(RtfStreamStringOut(), vbCrLf, vbCr)

So far, everything has been working smoothly at my end with my above two lines of code. But, I would love to hear from you as to whether there is any other solution to fix the error at it's root cause.

Best of all wishes to you, ever, for your wonderful work!