Deselect a Listbox

Then try this. The code below will deselect all the selected items in the ListBox4 after double clicking the listbox.

Private Sub ListBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
   ListBox1.Selected(i) = False
Next i
End Sub