Private Sub Cognome_TextChanged(sender As System.Object, e As System.EventArgs) Handles Cognome.TextChanged
        Ragione.Text = Cognome.Text & Nome.Text
End Sub

Private Sub Nome_TextChanged(sender As System.Object, e As System.EventArgs) Handles Nome.TextChanged
        Ragione.Text = Cognome.Text & Nome.Text
End Sub