Sub Read
Log("Reading")
If File.Exists(File.DirInternal, DATES_FILENAME) Then
mmapDates = File.ReadMap(File.DirInternal, DATES_FILENAME)
Log(mmapDates)
For Each key As String In mmapDates.Keys
If key = DATES_FIRST_KEY Then
Dim lngDate As Long = mmapDates.Get(key)
AnotherDatePicker1.Date = lngDate
End If
Next
End If
End Sub