Function SetPaysToForm (Id As Integer) As Integer
Dim i%
Dim Ret%
Dim s$

Ret = XasXMLDom("XRPC" + CStr(Id), "", 0)

Ret = XasUserSetProperties(Celmain, 181, 3)
Celmain.BackColor = ColorHTMLToLong("FFFFFF")
CelFond(1).Visible = False
CelFond(2).Visible = False
Ret = XasUserSetProperties(LbTitre, 107, XFontName)
LbTitre.FontSize = 8
Ret = XasUserSetProperties(LbTitre, PROP_URL, 1)
'LbTitre.ForeColor = GlobTextMainColor
Ret = XasUserSetProperties(LbMess, 107, XFontName)
LbMess.FontSize = 8
'LbMess.ForeColor = GlobTextMainColor
For i = 0 To 1
    Ret = XasUserSetProperties(PicBtn(i), PROP_SUBMIT, 1)
    Ret = XasUserSetProperties(PicBtn(i), 107, XFontName)
    PicBtn(i).FontSize = 8
    PicBtn(i).FontBold = False
    'Ret = XasUserSetProperties(PicBtn(i), 12, GlobTextMainColor)  'ForColor
    Ret = XasUserSetProperties(PicBtn(i), PROP_BEVELINNER, 3)
    Ret = XasUserSetProperties(PicBtn(i), 239, 1) 'vAlign
Next i
Ret = LoadPix(Ico(0), "Editor")
Ret = LoadPix(Ico(1), "tips")
Ret = LoadPix(Ico(2), "_Importer")
Ret = LoadPix(Ico(3), "_Importer")
Ret = LoadPix(Ico(4), "_Importer")
For i = 0 To 4
    Ret = XasUserSetProperties(Ico(i), PROP_URL, 1)
Next i
Ret = LoadPix(LbTitre, "_undo")
Ret = XasUserSetProperties(LbTitre, 88, 20)

Ret = LoadPix(iTest(0), "tips")
Ret = XasUserSetProperties(iTest(0), PROP_URL, 1)

For i = 0 To 2
    Ret = XasUserSetProperties(CelFond(i), PROP_BORDERWIDTH, 1)
    CelFond(i).BackColor = ColorHTMLToLong("FFFFFF")
    Ret = XasUserSetProperties(CelFond(i), 21, ColorHTMLToLong("F0CA21"))
    Ret = XasUserSetProperties(CelFond(i), 26, 1)
    Ret = XasUserSetProperties(CelFond(i), 181, 3)
Next i
Ret = DoPattern(CelFond(0), "PATXAS.GIF")

For i = 0 To 9
    Ret = XasUserSetProperties(cx(i), PROP_BORDERWIDTH, 1)
    Ret = XasUserSetProperties(cx(i), 236, 25)
    Ret = XasUserSetProperties(cx(i), 21, ColorHTMLToLong("F0CA21"))
    Ret = XasUserSetProperties(cx(i), 26, 1)
    Ret = XasUserSetProperties(cx(i), 181, 3)
    Ret = XasUserSetProperties(cx(i), 107, XFontName)
    Ret = XasUserSetProperties(cx(i), PROP_ALIGNEMENT, 2)
    'cx(i).FontBold = False
    cx(i).FontSize = 8
    cx(i).BackColor = ColorHTMLToLong("FBEC9A")
    'cx(i).ForeColor = GlobTextMainColor
    Ret = XasUserSetProperties(cx(i), PROP_COLOR_ON, ColorHTMLToLong("F0CA21"))
Next i
For i = 0 To 3
    Ret = XasUserSetProperties(Cel(i), PROP_BORDERWIDTH, 1)
    Ret = XasUserSetProperties(Cel(i), 236, 25)
    Ret = XasUserSetProperties(Cel(i), 21, ColorHTMLToLong("F0CA21"))
    Ret = XasUserSetProperties(Cel(i), 26, 1)
    Ret = XasUserSetProperties(Cel(i), 181, 3)
    Ret = XasUserSetProperties(Cel(i), 107, XFontName)
    Ret = XasUserSetProperties(Cel(i), PROP_ALIGNEMENT, 2)
    Cel(i).FontBold = False
    Cel(i).FontSize = 8
    Cel(i).BackColor = ColorHTMLToLong("FBEC9A")
    'Cel(i).ForeColor = GlobTextMainColor
    Ret = XasUserSetProperties(Cel(i), PROP_COLOR_ON, ColorHTMLToLong("F0CA21"))
Next i

For i = 0 To 7
    Ret = SetPaysForLab(LbA(i))
    Ret = SetPaysForLab(LbB(i))
    Ret = SetPaysForLab(LbC(i))
    Ret = SetPaysForLab(LbD(i))
    Ret = SetPaysForLab(LbE(i))
    Ret = SetPaysForLab(LbF(i))
    Ret = SetPaysForLab(LbG(i))
    Ret = SetPaysForLab(LbH(i))
    Ret = SetPaysForLab(LbI(i))
    Ret = SetPaysForLab(LbJ(i))
Next i
For i = 0 To 14
    xLb(i).BackColor = ColorHTMLToLong("F0CA21")
    'xLb(i).ForeColor = GlobTextMainColor
    Ret = XasUserSetProperties(xLb(i), 107, XFontName)
    Ret = XasUserSetProperties(xLb(i), PROP_ALIGNEMENT, 1)
    xLb(i).FontSize = 8
    xLb(i).FontBold = False
Next i
Ret = XasUserSetProperties(xLb(3), PROP_ALIGNEMENT, 0)
Ret = XasUserSetProperties(xLb(4), PROP_ALIGNEMENT, 0)
Ret = XasUserSetProperties(xLb(11), PROP_ALIGNEMENT, 0)
Ret = XasUserSetProperties(xLb(13), PROP_ALIGNEMENT, 0)

For i = 0 To 4
    cbo(i).BackColor = ColorHTMLToLong("FBEC9A")
    Ret = XasUserSetProperties(cbo(i), 107, XFontName)
    Ret = XasUserSetProperties(cbo(i), 103, 8)
    Ret = XasUserSetProperties(cbo(i), PROP_MAXLENGHT, 38)
    Ret = XasUserSetProperties(cbo(i), PROP_URL, 1)
    Ret = XasUserSetProperties(cbo(i), 181, 3)
    cbo(i).FontBold = False
Next i
For i = 0 To 5
    txt(i).BackColor = ColorHTMLToLong("FBEC9A")
    Ret = XasUserSetProperties(txt(i), 107, XFontName)
    Ret = XasUserSetProperties(txt(i), 103, 8)
    txt(i).FontBold = False
Next i
For i = 0 To 3
    cbCrit(i).BackColor = ColorHTMLToLong("FBEC9A")
    Ret = XasUserSetProperties(cbCrit(i), 107, XFontName)
    Ret = XasUserSetProperties(cbCrit(i), 103, 8)
    Ret = XasUserSetProperties(cbCrit(i), PROP_MAXLENGHT, 38)
    Ret = XasUserSetProperties(cbCrit(i), PROP_URL, 1)
    Ret = XasUserSetProperties(cbCrit(i), 181, 3)
    cbCrit(i).FontBold = False
Next i

End Function