Rendering ListView using Windows Vista Styles

[adrian1207]

This is the CodeBank for .Net, so the code in this thread is assumed to not work with vb6. That being said, I'm sure you could come up with something similar in vb6 if you wanted but it would be up to you to do, or you could forget vb6 considering it's 15 years old.

i try this code .which is similar to this code but it doesn't work ...


Private Declare Function SetWindowTheme Lib "uxtheme.dll" (ByVal hwnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long

Private Sub Form_Load()
Call SetWindowTheme(ListView1.hwnd, StrPtr("explorer"), 0)
'Call SetWindowTheme(TreeView1.hwnd, StrPtr("explorer"), 0)
ListView1.SmallIcons = ilRecordIco
a = ListView1.ListItems.Add(, , "asd" & vbNewLine & "asd", 1, 1)
End Sub