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
i try to make a listview style in vb6 but it doesnt work.. can you me
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
i try to make a listview style in vb6 but it doesnt work.. can you me