diff --git a/source/icon.rc b/source/icon.rc
index 15e68f352..b8fb24fda 100644
--- a/source/icon.rc
+++ b/source/icon.rc
@@ -20,4 +20,9 @@ BEGIN
             VALUE "Comments","QB64 is a modern extended BASIC programming language that retains QB4.5/Qbasic compatibility and compiles native binaries for Windows, Linux and macOS.\0"
         END
     END
+
+    BLOCK "VarFileInfo"
+    BEGIN
+        VALUE "Translation", 0x409, 0x04E4
+    END
 END
diff --git a/source/qb64.bas b/source/qb64.bas
index df48c5154..a0dbeb40c 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -11978,6 +11978,10 @@ IF os$ = "WIN" THEN
         PRINT #iconfilehandle, "            VALUE " + QuotedFilename$("Web") + "," + QuotedFilename$(viWeb$ + "\0")
         PRINT #iconfilehandle, "        END"
         PRINT #iconfilehandle, "    END"
+        PRINT #iconfilehandle, "    BLOCK " + QuotedFilename$("VarFileInfo")
+        PRINT #iconfilehandle, "    BEGIN"
+        PRINT #iconfilehandle, "            VALUE " + QuotedFilename$("Translation") + ", 0x409, 0x04E4"
+        PRINT #iconfilehandle, "    END"
         PRINT #iconfilehandle, "END"
         CLOSE #iconfilehandle
     END IF
@@ -25188,20 +25192,20 @@ END SUB
 
 SUB addWarning (lineNumber AS LONG, text$)
     IF NOT IgnoreWarnings THEN
-    IF lineNumber > 0 THEN
-        totalWarnings = totalWarnings + 1
-    ELSE
-        IF lastWarningHeader = text$ THEN
-            EXIT SUB
+        IF lineNumber > 0 THEN
+            totalWarnings = totalWarnings + 1
         ELSE
-            lastWarningHeader = text$
+            IF lastWarningHeader = text$ THEN
+                EXIT SUB
+            ELSE
+                lastWarningHeader = text$
+            END IF
         END IF
-    END IF
 
-    warningListItems = warningListItems + 1
-    IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999)
-    warning$(warningListItems) = MKL$(lineNumber) + text$
-    end if
+        warningListItems = warningListItems + 1
+        IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999)
+        warning$(warningListItems) = MKL$(lineNumber) + text$
+    END IF
 END SUB
 
 '$INCLUDE:'utilities\strings.bas'