Private Sub btnAdd_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnAdd.Click

        '---add item to list box FROM text box
        lbProducts.Items.Add(txtItem.Text)


    End Sub