Private Sub MainForm_CloseRequest (EventData As Event)
File.WriteMap(File.DirApp,"pos.txt",CreateMap("left":MainForm.WindowLeft,"top":MainForm.WindowTop))
End Sub
Private Sub setPosition
If File.Exists(File.DirApp,"pos.txt") Then
Dim m As Map = File.ReadMap(File.DirApp,"pos.txt")
If m.ContainsKey("left") Then MainForm.WindowLeft = m.Get("left")
If m.ContainsKey("top") Then MainForm.WindowTop = m.Get("top")
End If
End Sub