Problems porting from Win98 to Win2k

[hitman67]

Hi everybody,

I have the problem to display the correct charset on some controls. The following code is used to change the character set of each control in a form:

Public Sub ChangeCharSet(frmActForm As Form)

    Dim objCtrl         As Control
    Dim lCharSetCode    As Long
    Dim fntDummy        As StdFont
    
    'get charset code of current language, i.e. 204 for 'cyrillic'
    lCharSetCode = dbLNG.LangScriptIndex
    

    'now setting font with new charset of each control
    On Error Resume Next
    For Each objCtrl In frmActForm
        Set fntDummy = objCtrl.Font
        fntDummy.Charset = lCharSetCode
        Set objCtrl.Font = fntDummy
    Next
    On Error GoTo 0
    
End Sub

This code works correct under Win98, but under Win2000 some controls, i.e. Frame and ComboBox don't show the cyrillic characters, but some other controls, i.e. Label and CommandButton show the text correctly.

Has anybody an idea, why ?

What con I do to fix it ?

P.S. all text is ANSI not UNICODE, since neither VB-Controls nor DAO are supporting UNICODE