Public Class Form1
    'Programmer: Janet Joy
    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 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

    Private Sub BtnAdd_Click(sender As System.Object, e As System.EventArgs) Handles BtnAdd.Click
 	    'Adds name from input box to combo box
       Dim N As String
        N = InputBox("Enter name", "Name")
        If N <> "" Then
            Me.CboNames.Items.Add(N)
        End If
    End Sub
End Class