Function DoAllCOMBO (id As Integer) As Integer
Dim Ret%
Dim s$
Dim s2$
Dim i%
Dim sData$

For i = 0 To 3
    List1(i).Clear
Next i


For i = 0 To 8
    Cb(i).Clear
    Ret = XasUserGetProperties(Cb(i), 178, sData)
    If sData <> "" Then
	Ret = pExecute(sData)
	DoAllCOMBO = Ret
	While (Ret = True)
	    s = OnSQLGetItem(0)
	    If s <> "" Then
		s2 = OnSQLGetItem(1)
		Cb(i).AddItem Trim$(s) + Space(40) + s2
	    End If
	    Ret = pMoveNext(id)
	Wend
    End If
Next i

'Ret = pExecute("select Couleurs_Id,label from Couleurs WHERE Couleurs_id != 0")
'While (Ret = True)
'    Ret = pGetItem(s2, 0)
'    If Ret = True Then
'        Ret = pGetItem(s, 1)
'        list1(0).AddItem Trim$(s) + Space(40) + s2
'    End If
'    Ret = pMoveNext(Id)
'Wend
'i = 1
'Ret = pExecute("select Tailles_Id,label from Tailles WHERE Tailles_id != 0")
'While (Ret = True)
'    Ret = pGetItem(s2, 0)
'    If Ret = True Then
'        Ret = pGetItem(s, 1)
'        list1(1).AddItem Trim$(s) + Space(40) + s2
'    End If
'    Ret = pMoveNext(Id)
'Wend

'Ret = pExecute("Select Article_id,Reference,nom,Designation from article where type=1")
'While (Ret = True)
'    Ret = pGetItem(s2, 0)
'    If Ret = True Then
'        Ret = pGetItem(s, 1)
'        sData = Trim$(s) + "-"
'        Ret = pGetItem(s, 2)
'        sData = sData + Trim$(s) + "-"
'        Ret = pGetItem(s, 3)
'        sData = sData + Trim$(s) + "-"
'        list1(3).AddItem Trim$(sData) + Space(40) + s2
'    End If
'    Ret = pMoveNext(Id)
'Wend


End Function