Hello, I want to make the treeview Themed.
So I am using following code.

Dim dw As Integer = NativeMethods.SendMessage(Me.tv1.Handle, NativeMethods.TVM_GETEXTENDEDSTYLE, 0, 0)

' Update style
dw = dw Or NativeMethods.TVS_EX_AUTOHSCROLL

' autoscroll horizontaly

dw = dw Or NativeMethods.TVS_EX_FADEINOUTEXPANDOS

' auto hide the +/- signs
' set style
NativeMethods.SendMessage(Me.tv1.Handle, NativeMethods.TVM_SETEXTENDEDSTYLE, 0, dw)

' little black/empty arrows and blue highlight on treenodes
NativeMethods.SetWindowTheme(Me.tv1.Handle, "explorer", Nothing)

This code is working fine but only the problem is that when I am including following code then on mouse hover treeview is BADLY flickering.
dw = dw Or NativeMethods.TVS_EX_FADEINOUTEXPANDOS.
When I am excluding the above part of code, treeview flicker goes out but AutoFadeIn-Out doesn't work.

Anyone having idea about this?

Thanks in advence.

Also turn on the TVS_EX_DOUBLEBUFFER style.

---

Hans Passant.

Also turn on the TVS_EX_DOUBLEBUFFER style.

---

Hans Passant.