Items can be moved between listboxes by clicking the button.
It is checked whether the item to be moved is in the other listbox. The item is not moved if it already exists.
In the userform in our template, there are two listboxes named ListBox1 and ListBox2.
Also,while moving the elements, an animation runs at the top of userform.

deg = ListBox1.Value For m = 0 To ListBox2.ListCount - 1 If deg = CStr(ListBox2.List(m)) Then MsgBox "This item already exists in ListBox2", vbCritical, "" Exit Sub End If Next ..
As seen in the picture above, items of the listbox can be moved up and down.