add russian translation

CompactGUI/LanguageHelper.vb

@@ -8,7 +8,7 @@ Imports System.Reflection
 Public Class LanguageHelper
     ' Supported language list
     ' @i18n
-    Private Shared ReadOnly SupportedCultures As String() = {"en-US", "zh-CN"}
+    Private Shared ReadOnly SupportedCultures As String() = {"en-US", "ru-RU", "zh-CN"}
     Private Shared resourceManager As ResourceManager = i18n.i18n.ResourceManager
     Private Shared currentCulture As CultureInfo = Nothing
 
@@ -83,6 +83,7 @@ Public Class LanguageHelper
         '@i18n
         Dim langMapping As New Dictionary(Of String, String) From {
         {"en", "en-US"},
+        {"ru", "ru-RU"},
         {"zh", "zh-CN"}
     }
 
@@ -136,4 +137,4 @@ Public Class LocalizeExtension
     Public Overrides Function ProvideValue(serviceProvider As IServiceProvider) As Object
         Return LanguageHelper.GetString(_key)
     End Function
-End Class
+End Class