'Create a Primary Memory Cache with a backing File Cache
Dim directory As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "KellermanSoftware", "NetCachingLibrary", "Tests")
Dim config As New SmartConfig(New MemoryCacheProvider(), New FileCacheProvider(directory))
            
'Specify UserName and LicenseKey for Licensed Mode
'config.UserName = "my user name";
'config.LicenseKey = "my license key";
            
'Instantiate the cache
Dim cache As New SmartCache(config)
            
'Build parameters for the report
Dim month As Integer = Date.Now.Month
Dim year As Integer = Date.Now.Year
            
'Get the cache key based on the report parameters
'The get cache key method uses reflection to ensure uniqueness
Dim cacheKey As String = cache.BuildCacheKey("MonthlySalesReport", month, year)
            
'Attempt to load the report from the cache
Dim report As List(Of ReportDetail) = cache.Get(Of List(Of ReportDetail))(cacheKey)
            
'Not found in the cache
If report Is Nothing Then
	'Load the report from the database
	report = ReportLogic.MonthlySalesReport(month, year)
            
	Dim item As New CacheItem(cacheKey, report, "Default")
            
	'Expire in 20 minutes
	Dim policy As New CacheItemPolicy() With {
		.AbsoluteExpiration = DateTimeOffset.Now.AddMinutes(20),
		.SlidingExpiration = SmartCache.NoSlidingExpiration
	}
            
	'Save to the cache using the same expiration policy for the memory cache and file cache
	Dim result As Boolean = cache.Add(Of String)(item, policy)
            
	'This will be true since it was added to the cache
	Console.WriteLine(result)
End If