Public Class Form1
    'Programmer: Janet Joy
	'Adds a list of names to a combo box
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       'Initialize combo box with one name: optional
	    Me.CboNames.Items.Add("Jay")
    End Sub
    
    Private Sub CboNames_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CboNames.SelectedIndexChanged
	    'display selected name
        Me.Text = CboNames.Text
    End Sub

    Private Sub BtnAdd_Click(sender As System.Object, e As System.EventArgs)
	    'Adds name from text box to combo box
        Dim N As String
         N = Me.TxtName.Text 'get the name the user typed
         If N <> "" Then
        Me.CboNames.Items.Add(N)
        TxtName.Text = ""
        MessageBox.Show(N & " has been added", "Name Added")
        End If
    End Sub

    Private Sub BtnClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnClear.Click
	    'Asks user if they really want to erase all names
        Dim Answer As MsgBoxResult
        Answer = MessageBox.Show("Are you sure you want to erase all of the names", "Clear", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Answer = MsgBoxResult.Yes Then
            Me.CboNames.Items.Clear()
        End If
    End Sub
End Class