Flicker free textbox

[Rick H]

To prevent your textbox flickering when you add new lines always ensure the total string height is greater than the height of the textbox.


E.g Create flicker fix string

Dim flicker_fix as String
Const MAX_ROWS=50
 
For a = 0 To MAX_ROWS
   flicker_fix = flicker_fix & vbCrLf
Next

always append this string to the end of your string you wish to add

E.G

Dim a as Long
Dim new_msg as String
 
For a = 0 to 20
   new_msg=new_msg & "More lines" & str(a) & vbCrLf
   text1.text = new_msg & flicker_fix
Next

This is only an example, obviously you would not write the code like this, but you get the idea.

I have used this where the LockWindowApi was not suitable.

Cheers

Rick