Compile errors [resolved]

[Joacim Andersson]

Try this code:

Sub ReadLanguages()
    Dim Language As String, sIniFileName As String
    Dim ctl As Control
    
    Language = ReadIniFile(App.Path & "\LNG.ini", "Language", "Language", "")
    Form1.caption = ReadIniFile(App.Path & "\LNG.ini", "Language", "Title", "")
    
    If Language = "English" Then
       Form1.LANG_English.Checked = True
       Form1.LANG_French.Checked = False
       sIniFileName = "\EN.ini"
    Else
       Form1.LANG_English.Checked = False
       Form1.LANG_French.Checked = True
       sIniFileName = "\FR.ini"
    End If
    
    For Each ctl In Form1.Controls
        If TypeOf ctl Is Menu Then
            ctl.caption = ReadIniFile(App.Path & sIniFileName, "ControlsLanguage", ctl.Name, "")
        End If
    Next
End Sub