[anestaki]

Καλησπέρα σε όλους
Τάσο σε ευχαριστώ.
Μαζί με τα επιλεγμένη γραμμή στην λίστα μπορούμε να διαγράφουμε και τα δεδομένα.

Private Sub cmdRemoveListSelectedItem_Click()
    Dim i As Long
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
        End If
    Next
End Sub