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()