Private Sub LoadGame()
        Dim Path As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "/TruckClicker"
        Dim fileReader As System.IO.StreamReader
        fileReader = My.Computer.FileSystem.OpenTextFileReader(Path & Convert.ToString("\data.txt"))
        Dim stringReader As String
        stringReader = fileReader.ReadLine()
        Clicks = Convert.ToInt64(stringReader)
        GameUpdate()
        fileReader.Dispose()
    End Sub