Dim Reader5 As TextReader
Reader5.Initialize(File.OpenInput(File.DirInternal, "sg.txt"))
kerenminmenu = Reader5.ReadLine
kerenmaxmenu = Reader5.ReadLine
dayopenmenu = Reader5.ReadLine
dayjumpmenu = Reader5.ReadLine
dayselmenu = Reader5.ReadLine
Reader5.close