Public Function GetFreeMemory() As Single
            Dim perfCounterMem As System.Diagnostics.PerformanceCounter
            perfCounterMem = New System.Diagnostics.PerformanceCounter( _
              "Memory", "Available MBytes")
            Return perfCounterMem.NextValue()
End Function