Anzitutto grazie per la disponibilità 
Dunque, Ho provato ad aspettare del tempo per vedere se viene liberata la memoria ... dopo 3 minuti che ho chiuso il form è sempre uguale l'occupazione di memoria.
Ho provato anche a chiudere ed aprire in rapida sequenza il form ... alla prima apertura occupazione memoria 25Mb, dopo 30 aperture 41Mb, dopo 60 siamo a 56,5Mb dopo 100 siam a 75Mb ... e anche aspettando per vedere se libera la memoria rimane fermo a 75Mb ...
Ti posto il codice sorgente del form, è di una semplicità estrema...
codice:
Public Class ContactAna
Private Sub ContactAnaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContactAnaBindingNavigatorSaveItem.Click
Dim Codice As String
If (CodiceTextBox.Text = "") Then
Codice = Me.NumberTableAdapter.GetNextNumber("ContactAna", "0")
Me.CodiceTextBox.Text = Codice
End If
Me.Validate()
Me.ContactAnaBindingSource.EndEdit()
Me.ContactAnaTableAdapter.Update(Me.GeCoNETDataSet.ContactAna)
End Sub
Private Sub ContactAna_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'GeCoNETDataSet.Indirizzi' table. You can move, or remove it, as needed.
Me.IndirizziTableAdapter.Fill(Me.GeCoNETDataSet.Indirizzi)
'TODO: This line of code loads data into the 'GeCoNETDataSet.ContactCat' table. You can move, or remove it, as needed.
Me.ContactCatTableAdapter.Fill(Me.GeCoNETDataSet.ContactCat)
'TODO: This line of code loads data into the 'GeCoNETDataSet.Province' table. You can move, or remove it, as needed.
Me.ProvinceTableAdapter.Fill(Me.GeCoNETDataSet.Province)
'TODO: This line of code loads data into the 'GeCoNETDataSet.ContactAna' table. You can move, or remove it, as needed.
Me.ContactAnaTableAdapter.Fill(Me.GeCoNETDataSet.ContactAna)
End Sub
Private Sub ContactAna_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
Me.Validate()
Me.ContactAnaBindingSource.EndEdit()
Me.ContactAnaTableAdapter.Update(Me.GeCoNETDataSet.ContactAna)
Me.Dispose()
Me.GeCoNETDataSet.Clear()
Me.GeCoNETDataSet.ContactAna.Dispose()
End Sub
End Class