Compile errors [resolved]
Hi guys
I have a problem with the string, here is the code:
Code:
Sub ReadLanguages()
Dim Language, caption As String
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
Dim ctl1 As Control
If TypeOf ctl1 Is Menu Then _
ctl1.caption = ReadIniFile(App.Path & "\EN.ini", "ControlsLanguage", ctl1.Name, "")
Next ctl1
End If
If Language = "French" Then
Form1.LANG_English.Checked = False
Form1.LANG_French.Checked = True
If TypeOf ct2 Is Menu Then _
ct2.caption = ReadIniFile(App.Path & "\FR.ini", "ControlsLanguage", ct2.Name, "")
Next ctl2
End If
End Sub
I have received the error instruction "Compile error: Next without For". The error instruction tells me the problem with the two following codes "Next ctl1" and "Next ctl2". I have tried everything I can do my best but no luck to refix. What can I do in order to refix??
Thanks,
Mark