What you can do is simulate single multiselect.
Use the ListIndex to find out and record which item was clicked then loop through the control to deselect all items
reselect the one you had recorded.
i=ctl.ListIndex
for j=0 to ctl.ListCount-1
ctl.Selected(j) = False
next
ctl.Selected(i) = True...