Drag and Drop Listboxes - with Class Module

Hi there, I am not very good with understanding class modules.

My goal is to create a drag and drop environment on a userform in which I can drag items from ListboxA, ListboxB or ListboxC as in my workbook example. Only allowing the items to be drop on ListboxD. Anything dragged from ListboxD could only be dropped on the listbox it originally came from. There will be a prefix in the item names to help distinguish this as in the sample workbook.

The sample code attached, is code I found on another forum... I made a few slight modifications, mostly to load data for testing and to test for type name since I was receiving an error when controls other than listboxes were on the userform. The sample code currently allows drag and drop from/to any listbox on the userform.

As I do not fully understand class modules, I am wondering if someone could help me to get closer to my goal.

Thanks
Craig

I think I figured it out... not sure it is the best method but it seems to work.
I added two if statements that looked at the source listbox name and the target listbox name.
Anything from A, B or C can only go to D.
Anything from D can only go back to where it came from.

The code I added is between the <><><><><><>.

Please Login or Register  to view this content.