'Programmer: Janet Joy
'List manager program with insert and delelte added
Public Class Form1
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuExit.Click
        'Temporary: we will addcheck for save later
        End
    End Sub

    Private Sub mnuInsert_Click(sender As Object, e As EventArgs) Handles mnuInsert.Click
        'Add an item to the list box
        Dim s As String
        s = InputBox("Enter item", "Add Item")
        If s <> "" Then
            ListBox1.Items.Add(s)
        End If
    End Sub

    Private Sub mnuDelete_Click(sender As Object, e As EventArgs) Handles mnuDelete.Click
        'Delete if there are items and one is selected
        If ListBox1.Items.Count > 0 And ListBox1.SelectedIndex >= 0 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
        Else
            ListBox1.Text = ""
        End If
        If ListBox1.Items.Count > 0 Then
            ListBox1.SelectedIndex = 0
        End If
    End Sub
End Class