Çözüldü listbox dan bir satır silmek istiyorum

Arkadaşlar merhaba
Listbox1 deki verileri dblclick ile listbox2 ye alıyorum. Ekran alındısında da görüldüğü gibi birden fazla şahısı listbox2 ye aldım. Ancak 4. satırdaki ŞAHIS14 ü yanlışlıkla aldığımı farkettim. listbox2 den ŞAHIS14 ü nasıl silebilirim?

Private Sub EVRAKARAMA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With EVRAKARAMA
Y = depo.ListCount: X = .ListIndex
If Y = -1 Then Y = 0
depo.AddItem
depo.List(Y, 0) = EVRAKARAMA.List(X, 1)
depo.List(Y, 1) = EVRAKARAMA.List(X, 2)
depo.List(Y, 2) = EVRAKARAMA.List(X, 3)
depo.List(Y, 3) = EVRAKARAMA.List(X, 4)
End With
End Sub