Checkbox caption

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hello,

Does anyone have a clue why the code at the botton aint working for the CJ checkboxes?
It is working for the CJ PushButton and for the default VB6 checkboxes.

Hope someone can help me out.
Thank you

Sub SetLanguage(frmForm As Form)
Dim ctl As control
    For Each ctl In frmForm.Controls
If TypeOf ctl Is PushButton Then _
    ctl.Caption = ReadINIFile(App.Path & "\Language.ini", frmForm.Name, ctl.Name, "")
If TypeOf ctl Is CheckBox Then _
    ctl.Caption = ReadINIFile(App.Path & "\Language.ini", frmForm.Name, ctl.Name, "")
Next ctl
End Sub
Private Sub Form1_Load()
          SetLanguage Me
End Sub

Greetings, JvdH