Function DoGridIMP (Ctrl As Control, NbRow As Integer, Id As Integer, sFile As String) As Integer
Dim Ret%
Dim i%
Dim j%
Dim s$
Dim IdXml%
Dim sA$
Dim NbCol%


IdXml = XasXmlOpen(sFile, 0, 0, 0, 0)
If IdXml <> 0 Then
    Ret = XasXmlSearchNode(IdXml, 5, "Id=" + CStr(Id), "", "")
    If Ret <> False Then
	Ret = XasXMLGetAttributbyName(IdXml, "Size", sA)
	Ret = XasXMLGetAttributbyName(IdXml, "Max", sA)
	NbCol = Val(sA)
	Ret = XasXmlChildNode(IdXml, sA)
	If Ret <> False Then
	    Ctrl.Rows = NbRow
	    Ctrl.Cols = NbCol + 1
	    NbRow = NbRow - 1
	    For i = 0 To NbRow
		Ctrl.Row = i
		Ctrl.RowHeight(i) = 285
		For j = 1 To NbCol
		    Ctrl.Col = j
		    Ctrl.Text = ""
		Next j
	    Next i
	    Ctrl.RowHeight(0) = 500
	    Ctrl.ColWidth(0) = 500
	    Ctrl.Row = 0
	    For j = 1 To NbCol
		Ctrl.Col = j
		Ctrl.ColAlignment(j) = 2
		Ret = IMPGetParam(IdXml, Id, j)
		If Ret = True Then
		    Ret = XasXMLGetAttributbyName(IdXml, "Size", sA)
		    Ret = Val(sA) * 150
		    Ctrl.ColWidth(j) = Ret
		    Ret = cbo(j).ListIndex
		    s = Trim$(Left$(cbo(j).List(Ret), 20))
		    Ctrl.Text = s
		End If
	    Next j
	    DoGridIMP = True
	End If
    End If
End If
End Function