diff --git a/ClimsoftVer4/ClimsoftVer4/App.config b/ClimsoftVer4/ClimsoftVer4/App.config
index 08b56378..7d90d999 100644
--- a/ClimsoftVer4/ClimsoftVer4/App.config
+++ b/ClimsoftVer4/ClimsoftVer4/App.config
@@ -16,12 +16,15 @@
   </startup>
   <applicationSettings>
     <ClimsoftVer4.My.MySettings>
-        <setting name="defaultDatabase" serializeAs="String">
-            <value>server=localhost;database=mariadb_climsoft_db_v4;port=3308;</value>
-        </setting>
-        <setting name="defaultRLocation" serializeAs="String">
-            <value>C:\Program Files\R\R-3.2.1</value>
-        </setting>
+      <setting name="defaultDatabase" serializeAs="String">
+        <value>server=localhost;database=mariadb_climsoft_db_v4;port=3308;</value>
+      </setting>
+      <setting name="defaultRLocation" serializeAs="String">
+        <value>C:\Program Files\R\R-3.2.1</value>
+      </setting>
+      <setting name="localDatabase" serializeAs="String">
+        <value>Climsoft4.ldb</value>
+      </setting>
     </ClimsoftVer4.My.MySettings>
   </applicationSettings>
   <entityFramework>
@@ -46,12 +49,15 @@
   </connectionStrings>
 <userSettings>
         <ClimsoftVer4.My.MySettings>
-            <setting name="rememberUsername" serializeAs="String">
-                <value>False</value>
-            </setting>
-            <setting name="rememberedUsername" serializeAs="String">
-                <value />
-            </setting>
+                <setting name="rememberUsername" serializeAs="String">
+                        <value>False</value>
+                </setting>
+                <setting name="rememberedUsername" serializeAs="String">
+                        <value />
+                </setting>
+                <setting name="currentLanguageCode" serializeAs="String">
+                        <value>en</value>
+                </setting>
         </ClimsoftVer4.My.MySettings>
     </userSettings>
 </configuration>
\ No newline at end of file
diff --git a/ClimsoftVer4/ClimsoftVer4/Climsoft4.ldb b/ClimsoftVer4/ClimsoftVer4/Climsoft4.ldb
new file mode 100644
index 00000000..6c4de090
Binary files /dev/null and b/ClimsoftVer4/ClimsoftVer4/Climsoft4.ldb differ
diff --git a/ClimsoftVer4/ClimsoftVer4/ClimsoftVer4.vbproj b/ClimsoftVer4/ClimsoftVer4/ClimsoftVer4.vbproj
index 1f72d14d..85374c5d 100644
--- a/ClimsoftVer4/ClimsoftVer4/ClimsoftVer4.vbproj
+++ b/ClimsoftVer4/ClimsoftVer4/ClimsoftVer4.vbproj
@@ -13,6 +13,8 @@
     <MyType>WindowsForms</MyType>
     <TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -58,6 +60,9 @@
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Data.SQLite, Version=1.0.111.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Data.SQLite.Core.1.0.111.0\lib\net451\System.Data.SQLite.dll</HintPath>
+    </Reference>
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.Numerics" />
@@ -91,6 +96,7 @@
     <Compile Include="clsClimsoftSettings.vb" />
     <Compile Include="clsLanguageTranslation.vb" />
     <Compile Include="clsProducts.vb" />
+    <Compile Include="clsSimpleTranslateTool.vb" />
     <Compile Include="clsTableFilter.vb" />
     <Compile Include="dataEntryGlobalRoutines.vb" />
     <Compile Include="formAgro1.Designer.vb">
@@ -1141,6 +1147,9 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="Climsoft4.ldb">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application1.Designer.vb</LastGenOutput>
@@ -1171,6 +1180,13 @@
     <Service Include="{508349B6-6B84-4DF5-91F0-309BEEBAD82D}" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\System.Data.SQLite.Core.1.0.111.0\build\net451\System.Data.SQLite.Core.targets" Condition="Exists('..\packages\System.Data.SQLite.Core.1.0.111.0\build\net451\System.Data.SQLite.Core.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them.  For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\System.Data.SQLite.Core.1.0.111.0\build\net451\System.Data.SQLite.Core.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\System.Data.SQLite.Core.1.0.111.0\build\net451\System.Data.SQLite.Core.targets'))" />
+  </Target>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">
diff --git a/ClimsoftVer4/ClimsoftVer4/FrmConversionDewPointRh.vb b/ClimsoftVer4/ClimsoftVer4/FrmConversionDewPointRh.vb
index 67395037..0edea8bf 100644
--- a/ClimsoftVer4/ClimsoftVer4/FrmConversionDewPointRh.vb
+++ b/ClimsoftVer4/ClimsoftVer4/FrmConversionDewPointRh.vb
@@ -70,4 +70,8 @@ errhandler:
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
         Me.Close()
     End Sub
+
+    Private Sub FrmConversionDewPointRh_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+    End Sub
 End Class
\ No newline at end of file
diff --git a/ClimsoftVer4/ClimsoftVer4/My Project/Settings.Designer.vb b/ClimsoftVer4/ClimsoftVer4/My Project/Settings.Designer.vb
index 2ab13e6c..330b2434 100644
--- a/ClimsoftVer4/ClimsoftVer4/My Project/Settings.Designer.vb	
+++ b/ClimsoftVer4/ClimsoftVer4/My Project/Settings.Designer.vb	
@@ -95,6 +95,27 @@ Namespace My
                 Me("rememberedUsername") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Climsoft4.ldb")>  _
+        Public ReadOnly Property localDatabase() As String
+            Get
+                Return CType(Me("localDatabase"),String)
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("en")>  _
+        Public Property currentLanguageCode() As String
+            Get
+                Return CType(Me("currentLanguageCode"),String)
+            End Get
+            Set
+                Me("currentLanguageCode") = value
+            End Set
+        End Property
     End Class
 End Namespace
 
diff --git a/ClimsoftVer4/ClimsoftVer4/My Project/Settings.settings b/ClimsoftVer4/ClimsoftVer4/My Project/Settings.settings
index e0b90984..4c4ef4dd 100644
--- a/ClimsoftVer4/ClimsoftVer4/My Project/Settings.settings	
+++ b/ClimsoftVer4/ClimsoftVer4/My Project/Settings.settings	
@@ -14,5 +14,11 @@
     <Setting Name="rememberedUsername" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="localDatabase" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">Climsoft4.ldb</Value>
+    </Setting>
+    <Setting Name="currentLanguageCode" Type="System.String" Scope="User">
+      <Value Profile="(Default)">en</Value>
+    </Setting>
   </Settings>
 </SettingsFile>
\ No newline at end of file
diff --git a/ClimsoftVer4/ClimsoftVer4/clsSimpleTranslateTool.vb b/ClimsoftVer4/ClimsoftVer4/clsSimpleTranslateTool.vb
new file mode 100644
index 00000000..d330f0aa
--- /dev/null
+++ b/ClimsoftVer4/ClimsoftVer4/clsSimpleTranslateTool.vb
@@ -0,0 +1,188 @@
+' CLIMSOFT - Climate Database Management System
+' Copyright (C) 2019
+'
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
+'
+' This program is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+' GNU General Public License for more details.
+'
+' You should have received a copy of the GNU General Public License
+' along with this program.  If not, see <http://www.gnu.org/licenses/>.
+Imports System.Data.SQLite
+
+Public Class SimpleTranslateTool
+    Public Shared Function listLanguages() As AvailableLanguages
+        Dim builder As New SQLiteConnectionStringBuilder()
+        Dim command As SQLiteCommand
+        Dim connection As New SQLiteConnection()
+        Dim currentIndex As Integer = 0
+        Dim datareader As SQLiteDataReader
+        Dim dict As New Dictionary(Of String, String)
+        Dim languages As New List(Of String)
+        Dim languageCodes As New List(Of String)
+        Dim selectedIndex As Integer = 0
+
+        Try
+            builder.FailIfMissing = True
+            builder.DataSource = My.Settings.localDatabase
+            connection = New SQLiteConnection(builder.ConnectionString)
+            connection.Open()
+            command = connection.CreateCommand()
+            command.CommandText = "SELECT code, language FROM available_languages"
+            datareader = command.ExecuteReader()
+            While (datareader.Read())
+                languageCodes.Add(datareader.GetValue(0))
+                languages.Add(datareader.GetString(1))
+                If datareader.GetValue(0) = "en" Then
+                    selectedIndex = currentIndex
+                End If
+                currentIndex += 1
+            End While
+        Catch ex As Exception
+            ' If processing information from SQLite fails for any reason then return
+            ' English as the only option (if a connection is open then close it).
+            connection.Close()
+            languageCodes.Add("en")
+            languages.Add("English")
+            selectedIndex = 0
+        End Try
+
+        'For Each keyValue As String() In languages.Zip(Of String, String())(languageCodes, Tuple.Create())
+        For Each keyValue In languages.Zip(Of String, Object)(languageCodes, Function(s1, s2) Tuple.Create(s1, s2))
+            dict.Add(keyValue.Item1, keyValue.Item2)
+        Next
+
+        Return New AvailableLanguages With {
+            .languageCodes = languageCodes,
+            .languages = languages,
+            .selectedIndex = selectedIndex,
+            .lookupCode = dict
+        }
+    End Function
+
+
+    Public Shared Function translateOpenForms(Optional language As String = "")
+        Dim languageCode As String
+        For Each frm As Form In My.Application.OpenForms
+            languageCode = translateForm(frm, language)
+        Next
+        Return languageCode
+    End Function
+
+    Public Shared Function translateForm(frm As Form, Optional language As String = "")
+        ' Change text in all open forms to new language choice
+        Dim builder As New SQLiteConnectionStringBuilder()
+        Dim command As SQLiteCommand
+        Dim connection As New SQLiteConnection()
+        Dim controlName As String
+        Dim datareader As SQLiteDataReader
+        Dim flag As String
+        Dim formName As String
+        Dim lang As String
+        Dim languageCode As String
+        Dim keyParts As String()
+        Dim parent As String
+        Dim parents As String()
+        Dim parentParts As String()
+        Dim parentType As String
+        Dim propertyName As String
+        Dim startswith As String
+        Dim value As String
+
+        If String.IsNullOrEmpty(language) Then
+            languageCode = My.Settings.currentLanguageCode
+        Else
+            languageCode = listLanguages().lookupCode(language)
+        End If
+
+        'Try
+        builder.FailIfMissing = True
+        builder.DataSource = My.Settings.localDatabase
+        connection = New SQLiteConnection(builder.ConnectionString)
+        connection.Open()
+        command = connection.CreateCommand()
+
+        ' For the current languageCode and form.Name get all translation entries
+        startswith = String.Format("{0}\_\_{1}\_\_", languageCode, frm.Name)
+        command.CommandText = String.Format(
+            "SELECT name, value, parent, flag from translations WHERE name LIKE '{0}%' ESCAPE '\';", startswith)
+        datareader = command.ExecuteReader()
+
+        'MsgBox("SELECT name, value, parent, flag from translations WHERE name LIKE '{0}%' ESCAPE '\';", startswith)
+
+        While (datareader.Read())
+            ' Currenty the strings we are splitting contain two consecutive understored "__"
+            ' Splitting on `__` is the same as spliting on `_` and will return empty strings between each pair of underscores
+            keyParts = datareader.GetValue(0).Split("_")
+            lang = keyParts(0)
+            formName = keyParts(2)
+            controlName = keyParts(4)
+            propertyName = keyParts(6)
+            value = datareader.GetString(1)
+            parents = datareader.GetString(2).Split(".")
+            ' It's always safe to request details of the first parent (root parent)
+            parentParts = parents(0).Split(":")
+            parent = parentParts(0)
+            flag = datareader.GetString(3)
+
+            Try
+                If Not String.IsNullOrEmpty(parent) Then
+
+                    ' First parent's indicator of type
+                    parentType = parentParts(1)
+
+                    ' Is there a second parent?
+                    If parents.Length > 1 Then
+                        ' When there is a second parent, this usually indicates a submenu item
+                        ' E.g. MenuStrip2:M.mnuInput:S
+                        Dim secondParentParts = parents(1).Split(":")
+                        Dim secondParent = secondParentParts(0)
+                        Dim secondParentType = secondParentParts(1)
+                        Dim menu As MenuStrip
+                        Dim toolmenu As ToolStripMenuItem
+                        menu = frm.Controls(parent)
+                        toolmenu = menu.Items().Item(secondParent)
+                        CallByName(toolmenu.DropDownItems().Item(controlName), propertyName, CallType.Set, value)
+
+                    ElseIf parentType = "C" Then
+                        ' This will work for standard controls that are inside a panel
+                        CallByName(frm.Controls(parent).Controls(controlName), propertyName, CallType.Set, value)
+                    ElseIf parentType = "M" Then
+                        ' This will work for the primary menu items on a menu strip (but not submenu items)
+                        Dim menu As MenuStrip
+                        menu = frm.Controls(parent)
+                        CallByName(menu.Items().Item(controlName), propertyName, CallType.Set, value)
+                    End If
+
+                ElseIf controlName = "Me" Then
+                    CallByName(frm, propertyName, CallType.Set, value)
+                Else
+                    CallByName(frm.Controls(controlName), propertyName, CallType.Set, value)
+                End If
+
+            Catch ex As Exception
+                '    MsgBox(">> " & parent & " " & frm.Name & " " & controlName & " " & propertyName & " " & value & "::" & ex.Message)
+            End Try
+
+        End While
+        'Catch ex As Exception
+        '    Throw
+        'Finally
+        connection.Close()
+        'End Try
+
+        Return languageCode
+    End Function
+End Class
+
+Public Class AvailableLanguages
+    Public Property languageCodes As List(Of String)
+    Public Property languages As List(Of String)
+    Public Property selectedIndex As Integer
+    Public Property lookupCode As Dictionary(Of String, String)
+End Class
diff --git a/ClimsoftVer4/ClimsoftVer4/formAWSRealTime.vb b/ClimsoftVer4/ClimsoftVer4/formAWSRealTime.vb
index 23808d69..71105e8e 100644
--- a/ClimsoftVer4/ClimsoftVer4/formAWSRealTime.vb
+++ b/ClimsoftVer4/ClimsoftVer4/formAWSRealTime.vb
@@ -62,6 +62,8 @@ Public Class formAWSRealTime
     End Sub
 
     Private Sub formAWSRealTime_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         pnlProcessing.Dock = DockStyle.Right
         pnlProcessing.Visible = True
         ' database Connect
diff --git a/ClimsoftVer4/ClimsoftVer4/formMetadata.vb b/ClimsoftVer4/ClimsoftVer4/formMetadata.vb
index 70f2456d..c738a127 100644
--- a/ClimsoftVer4/ClimsoftVer4/formMetadata.vb
+++ b/ClimsoftVer4/ClimsoftVer4/formMetadata.vb
@@ -46,6 +46,8 @@ Public Class formMetadata
     End Sub
 
     Private Sub formMetadata_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         dbConnectionString = frmLogin.txtusrpwd.Text
         dbconn.ConnectionString = dbConnectionString
         dbconn.Open()
diff --git a/ClimsoftVer4/ClimsoftVer4/formPaperArchive.vb b/ClimsoftVer4/ClimsoftVer4/formPaperArchive.vb
index 0aa54080..847775b0 100644
--- a/ClimsoftVer4/ClimsoftVer4/formPaperArchive.vb
+++ b/ClimsoftVer4/ClimsoftVer4/formPaperArchive.vb
@@ -259,6 +259,7 @@
     End Sub
 
     Private Sub formPaperArchive_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SimpleTranslateTool.translateForm(Me)
 
         dbConnectionString = frmLogin.txtusrpwd.Text
         dbconn.ConnectionString = dbConnectionString
diff --git a/ClimsoftVer4/ClimsoftVer4/formProducts.vb b/ClimsoftVer4/ClimsoftVer4/formProducts.vb
index ba3702f2..81d4d830 100644
--- a/ClimsoftVer4/ClimsoftVer4/formProducts.vb
+++ b/ClimsoftVer4/ClimsoftVer4/formProducts.vb
@@ -25,6 +25,7 @@ Public Class frmProducts
     Dim kounts As Integer
     Dim SelectedProduct
     Private Sub formProductsSelect_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
 
         'MyConnectionString = "server=127.0.0.1; uid=root; pwd=admin; database=mysql_climsoft_db_v4"
         MyConnectionString = frmLogin.txtusrpwd.Text
diff --git a/ClimsoftVer4/ClimsoftVer4/frmAction.vb b/ClimsoftVer4/ClimsoftVer4/frmAction.vb
index 5760b6f7..2247f32f 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmAction.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmAction.vb
@@ -24,7 +24,7 @@ Public Class frmAction
     End Sub
 
     Private Sub frmAction_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        autoTranslate(Me)
+
     End Sub
 
     Private Sub cmdHelp_Click(sender As Object, e As EventArgs) Handles cmdHelp.Click
diff --git a/ClimsoftVer4/ClimsoftVer4/frmChangeOwnPassword.vb b/ClimsoftVer4/ClimsoftVer4/frmChangeOwnPassword.vb
index 83669e5a..2de05ce4 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmChangeOwnPassword.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmChangeOwnPassword.vb
@@ -10,6 +10,8 @@
     End Sub
 
     Private Sub frmChangeOwnPassword_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         msgNotYetImplemented = "Not yet implemented!"
         msgWrongPasswordConfirmation = "Wrong confirmation of password!"
         msgPasswordTooShort = "Password length must be >=6 characters!"
diff --git a/ClimsoftVer4/ClimsoftVer4/frmChangePassword.vb b/ClimsoftVer4/ClimsoftVer4/frmChangePassword.vb
index d2637d77..976cd090 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmChangePassword.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmChangePassword.vb
@@ -44,6 +44,8 @@
     End Sub
 
     Private Sub frmChangePassword_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         msgNotYetImplemented = "Not yet implemented!"
         msgWrongPasswordConfirmation = "Wrong confirmation of password!"
         msgPasswordTooShort = "Password length must be >=6 characters!"
diff --git a/ClimsoftVer4/ClimsoftVer4/frmDBUtilities.vb b/ClimsoftVer4/ClimsoftVer4/frmDBUtilities.vb
index c885fe26..3b06730d 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmDBUtilities.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmDBUtilities.vb
@@ -43,7 +43,7 @@ Public Class frmDBUtilities
     End Sub
 
     Private Sub formDbUtilities_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        SimpleTranslateTool.translateForm(Me)
     End Sub
 
     Private Sub ImportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImportToolStripMenuItem.Click
diff --git a/ClimsoftVer4/ClimsoftVer4/frmDataForms.vb b/ClimsoftVer4/ClimsoftVer4/frmDataForms.vb
index 2785c131..8adc2f7c 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmDataForms.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmDataForms.vb
@@ -3,6 +3,8 @@
     Private dataTable As DataTable
 
     Private Sub frmDataForms_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SimpleTranslateTool.translateForm(Me)
+
         'Dim sql As String
         'Dim conn As New MySql.Data.MySqlClient.MySqlConnection
         'Dim MyConnectionString As String
diff --git a/ClimsoftVer4/ClimsoftVer4/frmElementSequencer.vb b/ClimsoftVer4/ClimsoftVer4/frmElementSequencer.vb
index 8a216542..4389b17d 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmElementSequencer.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmElementSequencer.vb
@@ -6,6 +6,8 @@
 
 
     Private Sub frmElementSequencer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         On Error GoTo Err
         conn.ConnectionString = frmLogin.txtusrpwd.Text
         conn.Open()
diff --git a/ClimsoftVer4/ClimsoftVer4/frmElementSequencerDaily.vb b/ClimsoftVer4/ClimsoftVer4/frmElementSequencerDaily.vb
index 37a07a33..ca9e012a 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmElementSequencerDaily.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmElementSequencerDaily.vb
@@ -17,6 +17,8 @@
     End Sub
 
     Private Sub frmElementSequencerDaily_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         conn.ConnectionString = frmLogin.txtusrpwd.Text
         conn.Open()
         sql = "select * from seq_daily_element"
diff --git a/ClimsoftVer4/ClimsoftVer4/frmEntryForms.vb b/ClimsoftVer4/ClimsoftVer4/frmEntryForms.vb
index 98894eb0..870c7df3 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmEntryForms.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmEntryForms.vb
@@ -8,6 +8,8 @@
     Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
 
     Private Sub frmEntryForms_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         Dim col(1) As String
         Dim itm As New ListViewItem
 
diff --git a/ClimsoftVer4/ClimsoftVer4/frmGeneralSettings.vb b/ClimsoftVer4/ClimsoftVer4/frmGeneralSettings.vb
index d9e328ec..0a0cdfc8 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmGeneralSettings.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmGeneralSettings.vb
@@ -49,6 +49,8 @@ Public Class frmGeneralSettings
     End Sub
 
     Private Sub frmGeneralSettings_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SimpleTranslateTool.translateForm(Me)
+
         'Dim loggedInUser As String
         'loggedInUser = frmLogin.txtUser.Text
 
diff --git a/ClimsoftVer4/ClimsoftVer4/frmHourlyTimeSelection.vb b/ClimsoftVer4/ClimsoftVer4/frmHourlyTimeSelection.vb
index 7914720e..ec966931 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmHourlyTimeSelection.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmHourlyTimeSelection.vb
@@ -5,6 +5,8 @@
     Dim sql As String
 
     Private Sub frmHourlyTimeSelection_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         On Error GoTo Err
         conn.ConnectionString = frmLogin.txtusrpwd.Text
         conn.Open()
diff --git a/ClimsoftVer4/ClimsoftVer4/frmLanguage.Designer.vb b/ClimsoftVer4/ClimsoftVer4/frmLanguage.Designer.vb
index 0abcd354..60f841d2 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmLanguage.Designer.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmLanguage.Designer.vb
@@ -26,21 +26,22 @@ Partial Class frmLanguage
         Me.lblLanguage = New System.Windows.Forms.Label()
         Me.cmdCancel = New System.Windows.Forms.Button()
         Me.cmdOK = New System.Windows.Forms.Button()
+        Me.cmdApply = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'cboLanguage
         '
         Me.cboLanguage.FormattingEnabled = True
-        Me.cboLanguage.Items.AddRange(New Object() {"English", "Français", "Deutsch"})
-        Me.cboLanguage.Location = New System.Drawing.Point(226, 52)
+        Me.cboLanguage.Items.AddRange(New Object() {"English"})
+        Me.cboLanguage.Location = New System.Drawing.Point(137, 33)
         Me.cboLanguage.Name = "cboLanguage"
-        Me.cboLanguage.Size = New System.Drawing.Size(196, 21)
+        Me.cboLanguage.Size = New System.Drawing.Size(229, 21)
         Me.cboLanguage.TabIndex = 0
         '
         'lblLanguage
         '
         Me.lblLanguage.AutoSize = True
-        Me.lblLanguage.Location = New System.Drawing.Point(67, 55)
+        Me.lblLanguage.Location = New System.Drawing.Point(29, 36)
         Me.lblLanguage.Name = "lblLanguage"
         Me.lblLanguage.Size = New System.Drawing.Size(88, 13)
         Me.lblLanguage.TabIndex = 1
@@ -51,27 +52,38 @@ Partial Class frmLanguage
         'cmdCancel
         '
         Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.cmdCancel.Location = New System.Drawing.Point(431, 185)
+        Me.cmdCancel.Location = New System.Drawing.Point(215, 84)
         Me.cmdCancel.Name = "cmdCancel"
-        Me.cmdCancel.Size = New System.Drawing.Size(94, 23)
+        Me.cmdCancel.Size = New System.Drawing.Size(72, 23)
         Me.cmdCancel.TabIndex = 7
         Me.cmdCancel.Tag = "Cancel"
         Me.cmdCancel.Text = "&Cancel"
         '
         'cmdOK
         '
-        Me.cmdOK.Location = New System.Drawing.Point(328, 185)
+        Me.cmdOK.Location = New System.Drawing.Point(137, 84)
         Me.cmdOK.Name = "cmdOK"
-        Me.cmdOK.Size = New System.Drawing.Size(94, 23)
+        Me.cmdOK.Size = New System.Drawing.Size(72, 23)
         Me.cmdOK.TabIndex = 6
         Me.cmdOK.Tag = "OK"
         Me.cmdOK.Text = "&OK"
         '
+        'cmdApply
+        '
+        Me.cmdApply.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.cmdApply.Location = New System.Drawing.Point(294, 84)
+        Me.cmdApply.Name = "cmdApply"
+        Me.cmdApply.Size = New System.Drawing.Size(72, 23)
+        Me.cmdApply.TabIndex = 8
+        Me.cmdApply.Tag = ""
+        Me.cmdApply.Text = "&Apply"
+        '
         'frmLanguage
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(537, 220)
+        Me.ClientSize = New System.Drawing.Size(395, 137)
+        Me.Controls.Add(Me.cmdApply)
         Me.Controls.Add(Me.cmdCancel)
         Me.Controls.Add(Me.cmdOK)
         Me.Controls.Add(Me.lblLanguage)
@@ -88,4 +100,5 @@ Partial Class frmLanguage
     Friend WithEvents lblLanguage As Label
     Friend WithEvents cmdCancel As Button
     Friend WithEvents cmdOK As Button
+    Friend WithEvents cmdApply As Button
 End Class
diff --git a/ClimsoftVer4/ClimsoftVer4/frmLanguage.vb b/ClimsoftVer4/ClimsoftVer4/frmLanguage.vb
index b15d54c0..67b57bfa 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmLanguage.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmLanguage.vb
@@ -22,31 +22,59 @@ Public Class frmLanguage
     Dim cultureSelected As String = Thread.CurrentThread.CurrentUICulture.ToString
 
     Private Sub frmLanguage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        autoTranslate(Me)
+        SimpleTranslateTool.translateForm(Me)
+
+        Dim found As AvailableLanguages
+
+        If Not IO.File.Exists(My.Settings.localDatabase) Then
+            MsgBox("Unable to change language. Translations file could not be found.")
+            Me.Close()
+            Return
+        End If
+
+        found = SimpleTranslateTool.listLanguages()
+        cboLanguage.Items.Clear()
+        cboLanguage.Items.AddRange(found.languages.ToArray)
+        cboLanguage.SelectedIndex = found.selectedIndex
+
     End Sub
 
     Private Sub cboLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLanguage.SelectedIndexChanged
-        Dim language As String
-        language = cboLanguage.Text
-
-        Select Case language
-            Case "English"
-                cultureSelected = "en-GB"
-            Case "Français"
-                cultureSelected = "fr-FR"
-            Case "Deutsch"
-                cultureSelected = "de-DE"
-        End Select
-        autoTranslate(Me)
+        'Dim language As String
+        'language = cboLanguage.Text
+
+        'Select Case language
+        '    Case "English"
+        '        cultureSelected = "en-GB"
+        '    Case "Français"
+        '        cultureSelected = "fr-FR"
+        '    Case "Deutsch"
+        '        cultureSelected = "de-DE"
+        'End Select
+        'autoTranslate(Me)
     End Sub
 
     Private Sub cmdOK_Click(sender As Object, e As EventArgs) Handles cmdOK.Click
-        Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureSelected)
-        Thread.CurrentThread.CurrentUICulture = New CultureInfo(cultureSelected)
+        ' Set the current culture to the selected option, when new forms are opened this will be queried
+        'Thread.CurrentThread.CurrentCulture = New CultureInfo(cultureSelected)
+        'Thread.CurrentThread.CurrentUICulture = New CultureInfo(cultureSelected)
+        'MsgBox(Thread.CurrentThread.CurrentCulture.ToString)
+
+        Dim selectedLanguage As String
+        selectedLanguage = cboLanguage.GetItemText(cboLanguage.SelectedItem)
+        My.Settings.currentLanguageCode = SimpleTranslateTool.translateOpenForms(selectedLanguage)
+        frmLogin.lblLanguage.Text = My.Settings.currentLanguageCode
         Me.Close()
     End Sub
 
     Private Sub cmdCancel_Click(sender As Object, e As EventArgs) Handles cmdCancel.Click
         Me.Close()
     End Sub
+
+    Private Sub cmdApply_Click(sender As Object, e As EventArgs) Handles cmdApply.Click
+        Dim selectedLanguage As String
+        selectedLanguage = cboLanguage.GetItemText(cboLanguage.SelectedItem)
+        My.Settings.currentLanguageCode = SimpleTranslateTool.translateOpenForms(selectedLanguage)
+        frmLogin.lblLanguage.Text = My.Settings.currentLanguageCode
+    End Sub
 End Class
\ No newline at end of file
diff --git a/ClimsoftVer4/ClimsoftVer4/frmLogin.Designer.vb b/ClimsoftVer4/ClimsoftVer4/frmLogin.Designer.vb
index 9f035807..82f4f5d0 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmLogin.Designer.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmLogin.Designer.vb
@@ -46,6 +46,7 @@ Partial Class frmLogin
         Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
         Me.Label1 = New System.Windows.Forms.Label()
         Me.chkRememberUsername = New System.Windows.Forms.CheckBox()
+        Me.lblLanguage = New System.Windows.Forms.Label()
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -136,7 +137,6 @@ Partial Class frmLogin
         Me.cmdHelp.TabIndex = 9
         Me.cmdHelp.Tag = "Help"
         Me.cmdHelp.Text = "&Help"
-        Me.cmdHelp.Visible = False
         '
         'cmbDatabases
         '
@@ -144,7 +144,7 @@ Partial Class frmLogin
         Me.cmbDatabases.FormattingEnabled = True
         Me.cmbDatabases.Location = New System.Drawing.Point(218, 162)
         Me.cmbDatabases.Name = "cmbDatabases"
-        Me.cmbDatabases.Size = New System.Drawing.Size(222, 21)
+        Me.cmbDatabases.Size = New System.Drawing.Size(294, 21)
         Me.cmbDatabases.TabIndex = 7
         '
         'lblDbdetails
@@ -179,6 +179,16 @@ Partial Class frmLogin
         Me.chkRememberUsername.Text = "Remember username"
         Me.chkRememberUsername.UseVisualStyleBackColor = True
         '
+        'lblLanguage
+        '
+        Me.lblLanguage.AutoSize = True
+        Me.lblLanguage.ForeColor = System.Drawing.Color.Blue
+        Me.lblLanguage.Location = New System.Drawing.Point(491, 187)
+        Me.lblLanguage.Name = "lblLanguage"
+        Me.lblLanguage.Size = New System.Drawing.Size(0, 13)
+        Me.lblLanguage.TabIndex = 12
+        Me.lblLanguage.Tag = ""
+        '
         'frmLogin
         '
         Me.AcceptButton = Me.OK
@@ -186,6 +196,7 @@ Partial Class frmLogin
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.CancelButton = Me.Cancel
         Me.ClientSize = New System.Drawing.Size(539, 251)
+        Me.Controls.Add(Me.lblLanguage)
         Me.Controls.Add(Me.chkRememberUsername)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.cmdHelp)
@@ -220,4 +231,5 @@ Partial Class frmLogin
     Friend WithEvents lblDbdetails As Label
     Friend WithEvents Label1 As Label
     Friend WithEvents chkRememberUsername As CheckBox
+    Friend WithEvents lblLanguage As Label
 End Class
diff --git a/ClimsoftVer4/ClimsoftVer4/frmLogin.vb b/ClimsoftVer4/ClimsoftVer4/frmLogin.vb
index 7a8adf27..c2feae34 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmLogin.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmLogin.vb
@@ -14,6 +14,8 @@
 ' You should have received a copy of the GNU General Public License
 ' along with this program.  If not, see <http://www.gnu.org/licenses/>.
 Imports ClimsoftVer4.Translations
+Imports System.Data.SQLite
+Imports System.Threading
 
 
 Public Class frmLogin
@@ -205,45 +207,8 @@ Public Class frmLogin
     End Sub
 
     Private Sub LoginForm_Load(sender As Object, e As EventArgs) Handles Me.Load
-        '-------Code for translation added 20160207,ASM
-        'Translate text for controls on login form.
-        'Other Translation after successful login will come from language translation table stored in database
-
-        msgKeyentryFormsListUpdated = "List of key-entry forms updated!"
-        msgStationInformationNotFound = "Station information Not found. Please add station information And try again!"
-
-        Dim lanCulture As String
-        lanCulture = System.Globalization.CultureInfo.CurrentCulture.Name
-        If Strings.Left(lanCulture, 2) = "en" Then
-            ' MsgBox("Current language Is: English-UK")
-            Me.Text = "Login"
-            lblUsername.Text = "User name:"
-            lblPassword.Text = "Password:"
-            'lblDbdetails.Text = "Show and Configure Database Connection....."
-            OK.Text = "OK"
-            Cancel.Text = "Cancel"
-        ElseIf Strings.Left(lanCulture, 2) = "fr" Then
-            Me.Text = "s'identifier"
-            lblUsername.Text = "Nom d'utilisateur:"
-            lblPassword.Text = "Mot de passe:"
-            'lblDbdetails.Text = "Afficher et configurer la base de données de connexion....."
-            OK.Text = "OK"
-            Cancel.Text = "Annuler"
-        ElseIf Strings.Left(lanCulture, 2) = "de" Then
-            Me.Text = "Anmeldung"
-            lblUsername.Text = "Benutzername:"
-            lblPassword.Text = "Passwort:"
-            'lblDbdetails.Text = "Anzeige und Konfiguration der Verbindungsdatenbank....."
-            OK.Text = "OK"
-            Cancel.Text = "Stornieren"
-        ElseIf Strings.Left(lanCulture, 2) = "pt" Then
-            Me.Text = "Entrar"
-            lblUsername.Text = "Nome de usuário:"
-            lblPassword.Text = "Senha:"
-            'lblDbdetails.Text = "Mostrar e configurar o banco de dados de conexão....."
-            OK.Text = "OK"
-            Cancel.Text = "Cancelar"
-        End If
+        SimpleTranslateTool.translateForm(Me)
+        lblLanguage.Text = My.Settings.currentLanguageCode
 
         If My.Settings.rememberUsername Then
             chkRememberUsername.Checked = True
@@ -253,6 +218,50 @@ Public Class frmLogin
             txtPassword.Focus()
         End If
 
+        ' The langaguge translation code below is depreciated and will be removed
+        ' (it's not immediately clear where variables like `msgKeyentryFormsListUpdated`
+        ' are defined And used)
+
+        '-------Code for translation added 20160207,ASM
+        'Translate text for controls on login form.
+        'Other Translation after successful login will come from language translation table stored in database
+
+        msgKeyentryFormsListUpdated = "List of key-entry forms updated!"
+        msgStationInformationNotFound = "Station information Not found. Please add station information And try again!"
+
+        'Dim lanCulture As String
+        'lanCulture = System.Globalization.CultureInfo.CurrentCulture.Name
+        'If Strings.Left(lanCulture, 2) = "en" Then
+        '    ' MsgBox("Current language Is: English-UK")
+        '    Me.Text = "Login"
+        '    lblUsername.Text = "User name:"
+        '    lblPassword.Text = "Password:"
+        '    'lblDbdetails.Text = "Show and Configure Database Connection....."
+        '    OK.Text = "OK"
+        '    Cancel.Text = "Cancel"
+        'ElseIf Strings.Left(lanCulture, 2) = "fr" Then
+        '    Me.Text = "s'identifier"
+        '    lblUsername.Text = "Nom d'utilisateur:"
+        '    lblPassword.Text = "Mot de passe:"
+        '    'lblDbdetails.Text = "Afficher et configurer la base de données de connexion....."
+        '    OK.Text = "OK"
+        '    Cancel.Text = "Annuler"
+        'ElseIf Strings.Left(lanCulture, 2) = "de" Then
+        '    Me.Text = "Anmeldung"
+        '    lblUsername.Text = "Benutzername:"
+        '    lblPassword.Text = "Passwort:"
+        '    'lblDbdetails.Text = "Anzeige und Konfiguration der Verbindungsdatenbank....."
+        '    OK.Text = "OK"
+        '    Cancel.Text = "Stornieren"
+        'ElseIf Strings.Left(lanCulture, 2) = "pt" Then
+        '    Me.Text = "Entrar"
+        '    lblUsername.Text = "Nome de usuário:"
+        '    lblPassword.Text = "Senha:"
+        '    'lblDbdetails.Text = "Mostrar e configurar o banco de dados de conexão....."
+        '    OK.Text = "OK"
+        '    Cancel.Text = "Cancelar"
+        'End If
+
         refreshDatabases()
     End Sub
 
@@ -283,4 +292,8 @@ Public Class frmLogin
             My.Settings.Save()
         End If
     End Sub
+
+    Private Sub lblLanguage_Click(sender As Object, e As EventArgs) Handles lblLanguage.Click
+        frmLanguage.Show()
+    End Sub
 End Class
diff --git a/ClimsoftVer4/ClimsoftVer4/frmMainMenu.Designer.vb b/ClimsoftVer4/ClimsoftVer4/frmMainMenu.Designer.vb
index c1e8fba3..286c380f 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmMainMenu.Designer.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmMainMenu.Designer.vb
@@ -54,7 +54,6 @@ Partial Class frmMainMenu
         Me.AWSElementsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AWSStationsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ConfigurationForTDCFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.mnuLanguageTranslation = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnuHelp = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnuHelpContents = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnuHelpAbout = New System.Windows.Forms.ToolStripMenuItem()
@@ -88,7 +87,7 @@ Partial Class frmMainMenu
         '
         Me.MenuStrip2.AllowItemReorder = True
         Me.MenuStrip2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInput, Me.mnuAccessories, Me.mnuProducts, Me.mnuQC, Me.mnuAdministration, Me.ChangeOwnPasswordToolStripMenuItem, Me.mnuTools, Me.mnuLanguageTranslation, Me.mnuHelp})
+        Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInput, Me.mnuAccessories, Me.mnuProducts, Me.mnuQC, Me.mnuAdministration, Me.ChangeOwnPasswordToolStripMenuItem, Me.mnuTools, Me.mnuHelp})
         Me.MenuStrip2.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
         Me.MenuStrip2.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip2.Name = "MenuStrip2"
@@ -131,21 +130,21 @@ Partial Class frmMainMenu
         'mnuAccessoriesDewPointRH
         '
         Me.mnuAccessoriesDewPointRH.Name = "mnuAccessoriesDewPointRH"
-        Me.mnuAccessoriesDewPointRH.Size = New System.Drawing.Size(275, 24)
+        Me.mnuAccessoriesDewPointRH.Size = New System.Drawing.Size(274, 24)
         Me.mnuAccessoriesDewPointRH.Tag = "Calculation_of_dew_Point_and_RH"
         Me.mnuAccessoriesDewPointRH.Text = "Calculation of dew Point and RH"
         '
         'mnuAccessoriesXMLOutput
         '
         Me.mnuAccessoriesXMLOutput.Name = "mnuAccessoriesXMLOutput"
-        Me.mnuAccessoriesXMLOutput.Size = New System.Drawing.Size(275, 24)
+        Me.mnuAccessoriesXMLOutput.Size = New System.Drawing.Size(274, 24)
         Me.mnuAccessoriesXMLOutput.Tag = "Generate_XML_Output"
         Me.mnuAccessoriesXMLOutput.Text = "Generate XML Output"
         '
         'UserRecordsToolStripMenuItem1
         '
         Me.UserRecordsToolStripMenuItem1.Name = "UserRecordsToolStripMenuItem1"
-        Me.UserRecordsToolStripMenuItem1.Size = New System.Drawing.Size(275, 24)
+        Me.UserRecordsToolStripMenuItem1.Size = New System.Drawing.Size(274, 24)
         Me.UserRecordsToolStripMenuItem1.Text = "User Records"
         '
         'mnuProducts
@@ -173,34 +172,34 @@ Partial Class frmMainMenu
         'UserAdminToolStripMenuItem
         '
         Me.UserAdminToolStripMenuItem.Name = "UserAdminToolStripMenuItem"
-        Me.UserAdminToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.UserAdminToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.UserAdminToolStripMenuItem.Tag = "User_Admin"
         Me.UserAdminToolStripMenuItem.Text = "User Admin"
         '
         'MetadataToolStripMenuItem
         '
         Me.MetadataToolStripMenuItem.Name = "MetadataToolStripMenuItem"
-        Me.MetadataToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.MetadataToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.MetadataToolStripMenuItem.Tag = "Metadata"
         Me.MetadataToolStripMenuItem.Text = "Metadata"
         '
         'PasswordToolStripMenuItem
         '
         Me.PasswordToolStripMenuItem.Name = "PasswordToolStripMenuItem"
-        Me.PasswordToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.PasswordToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.PasswordToolStripMenuItem.Text = "Change Password"
         '
         'DataFormsToolStripMenuItem
         '
         Me.DataFormsToolStripMenuItem.Name = "DataFormsToolStripMenuItem"
-        Me.DataFormsToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.DataFormsToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.DataFormsToolStripMenuItem.Tag = "Data_Forms"
         Me.DataFormsToolStripMenuItem.Text = "Data Forms"
         '
         'UpdateElementsToolStripMenuItem
         '
         Me.UpdateElementsToolStripMenuItem.Name = "UpdateElementsToolStripMenuItem"
-        Me.UpdateElementsToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.UpdateElementsToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.UpdateElementsToolStripMenuItem.Tag = "Update_Element_Limits"
         Me.UpdateElementsToolStripMenuItem.Text = "Update Element Limits"
         Me.UpdateElementsToolStripMenuItem.Visible = False
@@ -208,19 +207,19 @@ Partial Class frmMainMenu
         'UpdateObservationsToolStripMenuItem1
         '
         Me.UpdateObservationsToolStripMenuItem1.Name = "UpdateObservationsToolStripMenuItem1"
-        Me.UpdateObservationsToolStripMenuItem1.Size = New System.Drawing.Size(273, 24)
+        Me.UpdateObservationsToolStripMenuItem1.Size = New System.Drawing.Size(221, 24)
         Me.UpdateObservationsToolStripMenuItem1.Text = "Update Observations"
         '
         'OpeartionsMonitoringToolStripMenuItem
         '
         Me.OpeartionsMonitoringToolStripMenuItem.Name = "OpeartionsMonitoringToolStripMenuItem"
-        Me.OpeartionsMonitoringToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.OpeartionsMonitoringToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.OpeartionsMonitoringToolStripMenuItem.Text = "Operations Monitoring"
         '
         'EmptyKeyEntryTablesToolStripMenuItem
         '
         Me.EmptyKeyEntryTablesToolStripMenuItem.Name = "EmptyKeyEntryTablesToolStripMenuItem"
-        Me.EmptyKeyEntryTablesToolStripMenuItem.Size = New System.Drawing.Size(273, 24)
+        Me.EmptyKeyEntryTablesToolStripMenuItem.Size = New System.Drawing.Size(221, 24)
         Me.EmptyKeyEntryTablesToolStripMenuItem.Text = "Empty Key Entry Forms"
         '
         'ChangeOwnPasswordToolStripMenuItem
@@ -233,7 +232,7 @@ Partial Class frmMainMenu
         '
         Me.mnuTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuToolsModifyForms, Me.SelectLanguageToolStripMenuItem, Me.GenerlSettingsToolStripMenuItem, Me.SequencerConfigurationToolStripMenuItem, Me.FormHourlyTimeSelectionToolStripMenuItem, Me.AWSToolStripMenuItem, Me.ConfigurationForTDCFToolStripMenuItem})
         Me.mnuTools.Name = "mnuTools"
-        Me.mnuTools.Size = New System.Drawing.Size(53, 23)
+        Me.mnuTools.Size = New System.Drawing.Size(52, 23)
         Me.mnuTools.Tag = "Tools"
         Me.mnuTools.Text = "Tools"
         '
@@ -300,13 +299,13 @@ Partial Class frmMainMenu
         'AWSElementsToolStripMenuItem
         '
         Me.AWSElementsToolStripMenuItem.Name = "AWSElementsToolStripMenuItem"
-        Me.AWSElementsToolStripMenuItem.Size = New System.Drawing.Size(166, 24)
+        Me.AWSElementsToolStripMenuItem.Size = New System.Drawing.Size(165, 24)
         Me.AWSElementsToolStripMenuItem.Text = "AWS Elements"
         '
         'AWSStationsToolStripMenuItem
         '
         Me.AWSStationsToolStripMenuItem.Name = "AWSStationsToolStripMenuItem"
-        Me.AWSStationsToolStripMenuItem.Size = New System.Drawing.Size(166, 24)
+        Me.AWSStationsToolStripMenuItem.Size = New System.Drawing.Size(165, 24)
         Me.AWSStationsToolStripMenuItem.Text = "AWS Stations"
         '
         'ConfigurationForTDCFToolStripMenuItem
@@ -315,12 +314,6 @@ Partial Class frmMainMenu
         Me.ConfigurationForTDCFToolStripMenuItem.Size = New System.Drawing.Size(242, 24)
         Me.ConfigurationForTDCFToolStripMenuItem.Text = "TDCF Settings"
         '
-        'mnuLanguageTranslation
-        '
-        Me.mnuLanguageTranslation.Name = "mnuLanguageTranslation"
-        Me.mnuLanguageTranslation.Size = New System.Drawing.Size(152, 23)
-        Me.mnuLanguageTranslation.Text = "Language Translation"
-        '
         'mnuHelp
         '
         Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuHelpContents, Me.mnuHelpAbout})
@@ -332,14 +325,14 @@ Partial Class frmMainMenu
         'mnuHelpContents
         '
         Me.mnuHelpContents.Name = "mnuHelpContents"
-        Me.mnuHelpContents.Size = New System.Drawing.Size(134, 24)
+        Me.mnuHelpContents.Size = New System.Drawing.Size(152, 24)
         Me.mnuHelpContents.Tag = "Contents"
         Me.mnuHelpContents.Text = "Contents"
         '
         'mnuHelpAbout
         '
         Me.mnuHelpAbout.Name = "mnuHelpAbout"
-        Me.mnuHelpAbout.Size = New System.Drawing.Size(134, 24)
+        Me.mnuHelpAbout.Size = New System.Drawing.Size(152, 24)
         Me.mnuHelpAbout.Tag = "About"
         Me.mnuHelpAbout.Text = "About"
         '
@@ -708,7 +701,6 @@ Partial Class frmMainMenu
     Friend WithEvents DailyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents FormHourlyTimeSelectionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ChangeOwnPasswordToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents mnuLanguageTranslation As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents AWSToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents AWSElementsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents AWSStationsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
diff --git a/ClimsoftVer4/ClimsoftVer4/frmMainMenu.vb b/ClimsoftVer4/ClimsoftVer4/frmMainMenu.vb
index 3bad39c4..5f85b48c 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmMainMenu.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmMainMenu.vb
@@ -20,6 +20,8 @@ Imports ClimsoftVer4.Translations
 Public Class frmMainMenu
 
     Private Sub frmMainMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         Dim usrName, usrRole As String
         Dim i, maxRows As Integer
         usrRole = ""
@@ -39,7 +41,7 @@ Public Class frmMainMenu
                 If usrRole = "ClimsoftOperator" Or usrRole = "ClimsoftOperatorSupervisor" Or usrRole = "ClimsoftRainfall" Then
                     mnuAdministration.Enabled = False
                     mnuTools.Enabled = False
-                    mnuLanguageTranslation.Enabled = False
+                    'mnuLanguageTranslation.Enabled = False
                     mnuQC.Enabled = False
                     mnuProducts.Enabled = False
                     cmdDataTransfer.Enabled = False
@@ -52,7 +54,7 @@ Public Class frmMainMenu
                 ElseIf usrRole = "ClimsoftQC" Then
                     mnuAdministration.Enabled = False
                     mnuTools.Enabled = False
-                    mnuLanguageTranslation.Enabled = False
+                    'mnuLanguageTranslation.Enabled = False
                     mnuProducts.Enabled = False
                     cmdDataTransfer.Enabled = False
                     cmdSettingsAWS.Enabled = False
@@ -65,7 +67,7 @@ Public Class frmMainMenu
                     mnuAdministration.Enabled = False
                     mnuTools.Enabled = False
                     mnuQC.Enabled = False
-                    mnuLanguageTranslation.Enabled = False
+                    'mnuLanguageTranslation.Enabled = False
                     cmdDataTransfer.Enabled = False
                     cmdSettingsAWS.Enabled = False
                     cmdUserManagement.Enabled = False
@@ -78,7 +80,7 @@ Public Class frmMainMenu
                     mnuAdministration.Enabled = False
                     mnuTools.Enabled = False
                     mnuQC.Enabled = False
-                    mnuLanguageTranslation.Enabled = False
+                    'mnuLanguageTranslation.Enabled = False
                     mnuProducts.Enabled = False
                     cmdDataTransfer.Enabled = False
                     cmdSettingsAWS.Enabled = False
@@ -105,12 +107,10 @@ Public Class frmMainMenu
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Exclamation)
         End Try
-        autoTranslate(Me)
-        HTMLHelp.HelpPage = "welcome.htm"
 
+        HTMLHelp.HelpPage = "welcome.htm"
     End Sub
 
-
     Private Sub cmdKeyEntry_Click(sender As Object, e As EventArgs) Handles cmdKeyEntry.Click
         ' The icon has been changed
         frmKeyEntry.ShowDialog()
@@ -195,9 +195,7 @@ Public Class frmMainMenu
     End Sub
 
     Private Sub SelectLanguageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectLanguageToolStripMenuItem.Click
-        frmLanguage.ShowDialog()
-        ' When dialog is closed - update language in this window (will any other windows also be open?)
-        autoTranslate(Me)
+        frmLanguage.Show()
     End Sub
 
     ' Help Menu Items
@@ -251,11 +249,6 @@ Public Class frmMainMenu
 
     End Sub
 
-
-    Private Sub mnuLanguageTranslation_Click(sender As Object, e As EventArgs) Handles mnuLanguageTranslation.Click
-        frmLanguageTranslation.Show()
-    End Sub
-
     Private Sub UserAdminToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserAdminToolStripMenuItem.Click
         frmUserManagement.Show()
     End Sub
diff --git a/ClimsoftVer4/ClimsoftVer4/frmModifyObservations.vb b/ClimsoftVer4/ClimsoftVer4/frmModifyObservations.vb
index 2e2365d0..ed843ef8 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmModifyObservations.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmModifyObservations.vb
@@ -8,6 +8,10 @@
         Help.ShowHelp(Me, Application.StartupPath & "\climsoft4.chm", "modifyobservations.htm")
     End Sub
 
+    Private Sub frmModifyObservations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+    End Sub
+
     Dim qry As New MySql.Data.MySqlClient.MySqlCommand
 
     Private Sub cmdView_Click(sender As Object, e As EventArgs) Handles cmdView.Click
diff --git a/ClimsoftVer4/ClimsoftVer4/frmMonitoring.vb b/ClimsoftVer4/ClimsoftVer4/frmMonitoring.vb
index ad7b585e..0944943d 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmMonitoring.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmMonitoring.vb
@@ -15,6 +15,8 @@
     End Sub
 
     Private Sub frmMonitoring_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         Dim kount As Long
         constr = frmLogin.txtusrpwd.Text
         conn.ConnectionString = constr
diff --git a/ClimsoftVer4/ClimsoftVer4/frmQC.vb b/ClimsoftVer4/ClimsoftVer4/frmQC.vb
index e295c970..2aa73aa7 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmQC.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmQC.vb
@@ -57,6 +57,8 @@ Public Class frmQC
     End Sub
 
     Private Sub frmQC_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         Dim conns As New MySql.Data.MySqlClient.MySqlConnection
         Dim dss As New DataSet, daa As MySql.Data.MySqlClient.MySqlDataAdapter
         Dim sql As String
@@ -87,7 +89,7 @@ Public Class frmQC
             conns.ConnectionString = frmLogin.txtusrpwd.Text
             conns.Open()
 
-            Sql = "SELECT * FROM station ORDER BY stationId"
+            sql = "SELECT * FROM station ORDER BY stationId"
             daa = New MySql.Data.MySqlClient.MySqlDataAdapter(sql, conns)
             dss.Clear()
 
diff --git a/ClimsoftVer4/ClimsoftVer4/frmSplashScreen.vb b/ClimsoftVer4/ClimsoftVer4/frmSplashScreen.vb
index 3e679493..b058ae77 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmSplashScreen.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmSplashScreen.vb
@@ -29,7 +29,7 @@ Public NotInheritable Class frmSplashScreen
 
 
     Private Sub SplashScreen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        autoTranslate(Me)
+        SimpleTranslateTool.translateForm(Me)
         'Set up the dialog text at runtime according to the application's assembly information.  
 
         'TODO: Customize the application's assembly information in the "Application" pane of the project 
diff --git a/ClimsoftVer4/ClimsoftVer4/frmTDCFindicators.vb b/ClimsoftVer4/ClimsoftVer4/frmTDCFindicators.vb
index 863d58ce..6671eb81 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmTDCFindicators.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmTDCFindicators.vb
@@ -96,6 +96,7 @@
     End Sub
 
     Private Sub frmTDCFindicators_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SimpleTranslateTool.translateForm(Me)
 
         dbConnectionString = frmLogin.txtusrpwd.Text
         dbconn.ConnectionString = dbConnectionString
diff --git a/ClimsoftVer4/ClimsoftVer4/frmUserManagement.vb b/ClimsoftVer4/ClimsoftVer4/frmUserManagement.vb
index 25a2d819..ae94f07e 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmUserManagement.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmUserManagement.vb
@@ -13,6 +13,8 @@
         Me.DataGridView1.DataSource = ds.Tables(0)
     End Sub
     Private Sub frmUserManagement_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         conn.ConnectionString = frmLogin.txtusrpwd.Text
         conn.Open()
         populateDataGrid()
diff --git a/ClimsoftVer4/ClimsoftVer4/frmdataentry.vb b/ClimsoftVer4/ClimsoftVer4/frmdataentry.vb
index a6b53623..fa16e32a 100644
--- a/ClimsoftVer4/ClimsoftVer4/frmdataentry.vb
+++ b/ClimsoftVer4/ClimsoftVer4/frmdataentry.vb
@@ -17,6 +17,8 @@
 Public Class frmKeyEntry
 
     Private Sub frmKeyEntry_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        SimpleTranslateTool.translateForm(Me)
+
         'Dim sql As String
         'Dim conn As New MySql.Data.MySqlClient.MySqlConnection
         'Dim MyConnectionString As String
@@ -48,9 +50,9 @@ Public Class frmKeyEntry
             lstViewForms.Items.Clear()
             'set the database name and columns, set the key field for updating, then add the retrieved data to the listview
             dataCall.SetTableNameAndFields("data_forms", {"form_name", "description"})
-            DataCall.SetFilter("selected", "=", 1)
-            DataTable = DataCall.GetDataTable()
-            For Each row As DataRow In DataTable.Rows
+            dataCall.SetFilter("selected", "=", 1)
+            dataTable = dataCall.GetDataTable()
+            For Each row As DataRow In dataTable.Rows
                 lstViewForms.Items.Add(New ListViewItem({row.Item("form_name"), row.Item("description")}))
             Next
         Catch ex As Exception
diff --git a/ClimsoftVer4/ClimsoftVer4/packages.config b/ClimsoftVer4/ClimsoftVer4/packages.config
index bb590efa..90203096 100644
--- a/ClimsoftVer4/ClimsoftVer4/packages.config
+++ b/ClimsoftVer4/ClimsoftVer4/packages.config
@@ -1,4 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
   <package id="MySql.Data" version="6.9.10" targetFramework="net451" />
+  <package id="System.Data.SQLite.Core" version="1.0.111.0" targetFramework="net451" />
 </packages>
\ No newline at end of file