Private Sub btnAggiungi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAggiungi.Click
            If txtTitolo.Text = "" Then
            MsgBox("Inserisci il titolo!", MsgBoxStyle.Exclamation)
            Me.DialogResult = Windows.Forms.DialogResult.None
        ElseIf txtAutore.Text = "" Then
            MsgBox("Inserisci l'autore!", MsgBoxStyle.Exclamation)
            Me.DialogResult = Windows.Forms.DialogResult.None
        ElseIf comboStrumento.Text = "" Then
            MsgBox("Inserisci lo strumento!", MsgBoxStyle.Exclamation)
            Me.DialogResult = Windows.Forms.DialogResult.None
        ElseIf txtAlbum.Text = "" Then
            txtAlbum.Text = "Album Sconosciuto"
            Me.DialogResult = Windows.Forms.DialogResult.OK
        ElseIf comboAnno.Text = "" Then
            comboAnno.Text = "Anno Sconusciuto"
            Me.DialogResult = Windows.Forms.DialogResult.OK
        Else
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub