'Programmer: Janet Joy
'List manager program with menu and listbox
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
End Class