Function LINKCheckSetData (Ctrl As Control, iRow As Integer, iCol As Integer, iValue As Integer) As Integer
Dim Ret%
Dim i%
Dim s$
Dim sId$
Dim sNum$
Dim sData$

If iValue > 0 Then
    s = ""
    For i = 1 To 5
	Ctrl.Col = i
	s = s + Ctrl.Text + Chr$(1)
    Next i
    GlobSaveGridLigne(iRow) = s

    Ctrl.Col = 6
    sId = Ctrl.Text
    Ctrl.Col = 1
    s = Ctrl.Text
    FrmLink.Txmp(0).Text = s
    s = Chr$(3) + "txmp(0)"
    Ctrl.Text = s
    
    Ctrl.Col = 2
    s = Ctrl.Text
    FrmLink.Txmp(1).Text = s
    s = Chr$(3) + "txmp(1)"
    Ctrl.Text = s
    
    Ctrl.Col = 3
    s = Ctrl.Text
    If GlobLinkCarteType = 2 Then
	Ctrl.Col = 7
	sData = Ctrl.Text
	Ret = sLibLINKSrcToCbo(FrmLink.cbp(1), GlobCurService + ".FrmLink.cbp(1)", s, sData, GlobCurFileDom)
	Ctrl.Col = 3
	s = Chr$(3) + "cbp(1)"
    Else
	Ctrl.Col = 7
	sData = Ctrl.Text
	Ret = sLibLINKSrcToTxt(FrmLink.Txmp(2), GlobCurService + ".FrmLink.Txmp(2)", s, sData)
	Ctrl.Col = 3
	s = Chr$(3) + "txmp(2)"
    End If
    Ctrl.Text = s
    
    Ctrl.Col = 4
    s = Ctrl.Text
    Ret = sLibLFPosCombo(FrmLink.cbp(0), Trim$(Ctrl.Text), 1)
    s = Chr$(3) + "cbp(0)"
    Ctrl.Text = s
    
    Ctrl.Col = 5
    FrmLink.chkp(0).Value = 0
    s = Ctrl.Text
    Ret = InStr(1, s, "_6.")
    If Ret > 0 Then
	FrmLink.chkp(0).Value = 1
    End If
    s = Chr$(3) + "chkp(0)"
    Ctrl.Text = s

Else
    For i = 1 To 5
	Ctrl.Col = i
	s = GetCharByIndice(GlobSaveGridLigne(iRow), Chr$(1), i)
	Ctrl.Text = s
    Next i

End If
End Function