Just wanted to share a small piece of code that i found. I had started a thread asking about how to prevent some controls from taking XP styles when using manifest files. But i can't find that thread. But anyway i got the solution. Here it is: (In this example i use a scrollbar)


Option Explicit
Private Declare Function DeactivateWindowTheme Lib "uxtheme" _
Alias "SetWindowTheme" ( _
ByVal hWnd As Long, _
Optional ByRef pszSubAppName As String = " ", _
Optional ByRef pszSubIdList As String = " ") _
As Integer

Private Sub Form_Load()
DeactivateWindowTheme VScroll1.hWnd
End Sub

Regards
Krishley