Try
            'cont = getIncremento()
            If Convert.ToInt32(e.KeyChar) = Keys.Return Then
                e.Handled = True
                Me.LsvZ.Items.Item(cont).SubItems.Add(Me.TxtInput.Text)
                Me.TxtInput.Text = ""
                Me.TxtInput.Focus()
                Incremento()
            End If
        Catch ex As Exception
            Me.TxtInput.Enabled = False
            Me.TxtInput.Text = ""
        End Try
 
        'Incremento()