How to simultaneously scroll userform labels with listbox?

[dionysus_83]

I have listbox that adjust to screen resolution of user computer. Since it is also auto-fit it's columns in some cases scrollbar appear so user could view all columns in listbox!

Since I didn't want to use column header option of listbox I've put labels above listbox of each column.

Of course in case of scrollbar appearance labels remains static and doesn't move along with listbox causing a confusion.

How to move labels with the listbox in case scrollbar appear? Or how to move two listbox simultaneously in case of scrollbar appearance?

I've tried using two listbox where one is showing just 1st row (header) in style I prefer, and second as body, and tried with following code to "attach" them one to another:

Private Sub ListBox1_Click()
[COLOR=#333333]ListBox2.ListIndex = ListBox1.ListIndex
[/COLOR]end sub

But with no luck! Listbox2 doesn't move along with ListBox1!

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...usly-scroll-userform-labels-with-listbox.html

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[dionysus_83]

Sorry. Wasn't aware I'm breaking rule. Here is link to another thread from different forum:

https://www.excelforum.com/excel-pr...userform-labels-with-listbox.html#post4872009