Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        If GetAsyncKeyState(Keys.Tab) < 0 Then
            Try
                caricarecord(CInt(Me.TextBox1.Text))
            Catch ex As Exception
                MessageBox.Show("Attenzione si è verificato un errore nella ricerca dei nell'archivio." & Chr(10) & "Messaggio orginale: " & ex.Message, "INVOICE.IT", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                e.Cancel = True
                Me.TextBox1.Focus()
            End Try
        End If
End Sub