Function SetStyleToForm (id As Integer) As Integer
Dim Ret As Integer
Dim i As Integer
'For i = 0 To 7
'Ret = XasUserSetProperties(xxxx(i), 146, "nom de la classe")
'Next i

For i = 0 To 7
Ret = XasUserSetProperties(PicBtn(i), 146, "squarebuttonon,squarebuttonoff,squarebuttonover")
Next i

Ret = XasUserSetProperties(UploadBtn, 146, "subsquarebuttonon,subsquarebuttonoff,subsquarebuttonover")
For i = 0 To 6
Ret = XasUserSetProperties(Lb(i), 146, "inactivtoplabel")
Next i


For i = 7 To 33
Ret = XasUserSetProperties(Lb(i), 146, "inactivlabel")
Next i

For i = 0 To 8
Ret = XasUserSetProperties(Cb(i), 146, "activlabel")
Next i


Ret = XasUserSetProperties(txP(3), 146, "activtoplabel")

For i = 4 To 6
Ret = XasUserSetProperties(txP(i), 146, "activtoplabel")
Next i
For i = 0 To 2
Ret = XasUserSetProperties(txP(i), 146, "desablelabel")
Next i
For i = 7 To 25
Ret = XasUserSetProperties(txP(i), 146, "activlabel")
Next i
Ret = XasUserSetProperties(txtFile, 146, "activlabel")
For i = 1 To 8
Ret = XasUserSetProperties(Celfond(i), 146, "middlelabelbkgd")
Next i
For i = 0 To 3
Ret = XasUserSetProperties(List1(i), 146, "submiddlelabelbkgd")
Next i


Ret = XasUserSetProperties(CelMain, 181, 15)
Ret = XasUserSetProperties(CelMain, 130, 0)
Ret = XasUserSetProperties(CelMain, PROP_BORDERWIDTH, 1)
Ret = XasUserSetProperties(CelMain, 239, 2) 'vertical align
Ret = XasUserSetProperties(CelMain, PROP_ALIGNEMENT, 2)
    
	Ret = XasUserSetProperties(CelMain, 119, 11)    'Size
	Ret = XasUserSetProperties(CelMain, 236, 11) 'height
	Ret = XasUserSetProperties(CelMain, 237, 24) 'width
	Ret = XasUserSetProperties(CelMain, 238, 24) 'PoseMore End
	Ret = XasUserSetProperties(CelMain, 146, "fframeo,ftopstarto,ftopendo,titrevert2,ficoneo,fbodyo,fbottomstarto,fbottomendo")   'width

For i = 0 To 1
Ret = XasUserSetProperties(txR(i), 146, "activlabel")
Next i
Ret = XasUserSetProperties(Celframe(2), 146, "globalbkgd")
Ret = XasUserSetProperties(Celframe(1), 146, "globalbkgd")
Ret = XasUserSetProperties(BtnOk, 146, "squarebuttonon,squarebuttonoff,squarebuttonover")
Ret = XasUserSetProperties(PicValid, 146, "actionbuttonon,actionbuttonoff,actionbuttonover,")
Ret = XasUserSetProperties(PicHead, 146, "actionbuttonbkgd")
Ret = XasUserSetProperties(Celfond(0), 146, "labelbkgd")
Ret = XasUserSetProperties(GridList, 146, "tablectrl,tableheadcol,tableheadrow,tableon,tableoff,subtable,subcel,")
End Function