Private Sub ListBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles _
    ListBox1.KeyDown
    If e.KeyCode = Keys.Delete AndAlso ListBox1.SelectedItem IsNot Nothing Then
      Dim i = ListBox1.SelectedIndex
      ListBox1.Items.RemoveAt(i)
      If i < ListBox1.Items.Count Then
        ListBox1.SelectedIndex = i
      End If
    End If
  End Sub