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

Maj = 0
Ret = XasXMLDom("ENTITY" + CStr(Id), "", 0)
Ret = XasUserSetProperties(CelMain, 130, 0)

For i = 0 To 1
    Ret = XasUserSetProperties(LabMsg(i), PROP_ALIGNEMENT, 2)
Next i

Ret = XasUserSetProperties(Cel(1), 130, 2)
Ret = XasUserSetProperties(GridList, PROP_ALIGNEMENT, 2)
For i = 0 To 2
    Ret = XasUserSetProperties(PicHardware(0), PROP_URL, 1)
Next i

'Ret = LoadPix(PicHardware(0), "voirtrans")
'Ret = LoadPix(PicHardware(1), "Geoloc")
'Ret = LoadPix(PicHardware(2), "atypique")

For i = 0 To 7
    Ret = XasUserSetProperties(PicBtn(i), PROP_URL, 1)
    Ret = XasUserSetProperties(PicBtn(i), PROP_ALIGNEMENT, 2)
Next i
Ret = XasUserSetProperties(PicValid, PROP_SUBMIT, 1)
Ret = XasUserSetProperties(PicValid, PROP_ALIGNEMENT, 2)

Ret = XasUserSetProperties(BtnOk, PROP_SUBMIT, 1)
Ret = XasUserSetProperties(BtnOk, PROP_ALIGNEMENT, 2)
BtnOk.FontBold = False

For i = 0 To 17
    Ret = XasUserSetProperties(CelFond(i), PROP_ALIGNEMENT, 2)
Next i
Ret = XasUserSetProperties(CelFond(5), PROP_ALIGNEMENT, 0)

Ret = XasUserSetProperties(CelTxt, 130, 2)

' ***** CelFond relatif aux onglets ***********************************
' **********************************************************************
  
For i = 0 To 36
    Ret = XasUserSetProperties(Cb(i), PROP_MAXLENGHT, 38)
Next i
Ret = XasUserSetProperties(Cb(36), PROP_SUBMIT, 1)



Ret = XasUserSetProperties(TxtUp, 205, "FILE")

TxtFile.Enabled = False


Ret = XasUserSetProperties(TxtFile, 96, 0)
Ret = XasUserSetProperties(FromDelete, PROP_URL, 1)
Ret = XasUserSetProperties(FromSubmit, PROP_URL, 1)

End Function