[no subject]

[Philippe Valarcher <philippe.valarcher@xxxxxxx>]

Bonsoir,
is someone can helping me in debbugging this part :

Public Sub Form_Open()

Dim fontName As String
Dim fontTaille As String
Dim fontStyle As String

CbxFonts.Clear()
CbxTailles.Clear()
CbxStyles.Clear()

' Module_Settings.RestorePolice

For Each fontName In Fonts
CbxFonts.Add(fontName)
Next

For Each fontStyle In ["False", "True"]
CbxStyles.Add(fontStyle)
Next

For Each fontTaille In ["8", "9", "10", "11", "12", "13"]
CbxTailles.Add(fontTaille)
Next

CbxFonts.Text = CbxFonts.List[CbxFonts.Find(FMain.sFontName)]
CbxTailles.Text = CbxTailles.List[CbxTailles.Find(FMain.iFontSize)]
' CbxStyles.Text = CbxStyles.List[CbxStyles.Find(FMain.bFontStyle)]

End

If I uncomment the last line the program fail with this :


-- 
Regards
Philippe Valarcher <philippe.valarcher@xxxxxxx>