There are some constants in that code that need to be adjusted for Windows versions, to adjust for things like scrollbar widths.
The important properties of a clsListBoxHighlite are
.ListBox - the listBox in question
.Index - which list item to highlight
.Hightlite - the Highlite (label) itself
..... used to format the highlight as in .Highlite.Font.Bold = True, .Highlite.BackColor = RGB(128,128,234)
.IsHeader - Highlites ListItem(0) and keeps it at the top as a header
.TransparentWhenSelected - determines apperance when a highlited item is selected