RETO 3 - INSCRIPCIONES(diseño y codigo)

Public Class Form1

    Private Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.Click

        Me.lstinscritos.Items.Add(txtnombres.Text)

        txtnombres.Focus()

        txtnombres.SelectAll()

        txtcantidad.Text = lstinscritos.Items.Count

    End Sub

    Private Sub btnquitar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitar.Click

        lstinscritos.Items.RemoveAt(lstinscritos.SelectedIndex)

        txtcantidad.Text = lstinscritos.Items.Count

    End Sub

    Private Sub btnquitartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitartodo.Click

        lstinscritos.Items.Clear()

    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        End

    End Sub

End Class