Dim markE As Integer = ListBox1.SelectedIndex
        If markE >= 0 Then
            ListBox1.Items.RemoveAt(markE)
        End If
        If markE = ListBox1.Items.Count And markE > 0 Then
            ListBox1.SetSelected(markE - 1, True)
        ElseIf markE > 0 Then
            ListBox1.SetSelected(markE, True)
        ElseIf markEx = 0 And markEx <> ListBox1.Items.Count Then
            ListBox1.SetSelected(markEx, True)
        End If