Mazání položek ListBoxu – Visual Basic – Fórum – Programujte.com

Zdravím, potřebuji poradit, mám listbox naplněný hodnotama a po kliknutí na tlačítko, potřebuji aby se mi označený záznam smazal, jak z lisboxu, tak z databáze odkud se načítá. část kódu již mám, ale nevím co dopsat

Public Sub btnSmazat_Click()
Dim odpoved
If lstPrijemka.ListIndex <> -1 Then
    odpoved = MsgBox("Opravdu si prejete smazat oznacenou výdejku ?", vbYesNo)
    If odpoved = vbYes Then
       ???????
    End If
End If

End Sub 

pokud to ještě potřebuješ, koukni sem http://msdn.microsoft.com/en-us/library/system.windows.forms.listbox.objectcollection.remove(v=vs.80).aspx