Private Sub txt_Contatto_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Contatto.LostFocus
        Dim trovato As Boolean = False
        'eseguire qui la query al database
        'che cambia lo stato alla variabile "trovato"
        If trovato = True Then
            'tutto ok il lavoro può proseguire su questa schermata
        Else
            Dim ris As MsgBoxResult
            'faccio la domanda all'utente se vuole inserire i dati di questo contatto.
            ris = MsgBox("ATTENZIONE! Il contatto inserito non è presente nel database, inserirne ora i dati?", MsgBoxStyle.YesNo)
            If ris = MsgBoxResult.Yes Then
                'creo un'istanza del form contatti
                Dim x As New frmContatti
                'visualizzo il form contatti in modalità "dialog"
                'in modo cioè che fino a che non si chiude il form
                'contatti il programma non consente di fare altro
                'su questo software
                x.ShowDialog()
            Else
                'l'utente ha cliccato su NO e qui non so come vuoi gestire la cosa
            End If
        End If