Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
if not listbox1.selecteditem = "" then
ListBox1.Items.Remove(ListBox1.SelectedItem)
Else
Msgbox("no selected item!")
End if