Sub PicValid_Click ()
Dim Ret%
Dim s$
Dim i%
LabMsg(0).Caption = ""
LabMsg(0).ForeColor = 0
Ret = 0
For i = 2 To 64
    'lab(i).ForeColor = GlobTextMainColor
Next i

Ret = PosCombo(Cb(0), CStr(TypeEntity))
If CurEcran = 0 Then
    s = txT(4).Text
    If s = "" Then
	lab(4).ForeColor = 255
	Ret = 1
    End If
    s = txT(11).Text
    If TypeEntity <> 15 And TypeEntity <> 10 Then
	i = Val(Trim$(Right$(Cb(6).Text, 4)))
	If CheckPostalCode(i, s) = False Then
	    lab(14).ForeColor = 255
	    Ret = 1
	End If
	s = txT(13).Text
	If s <> "" Then
	    If CheckEmail(s) = False Then
		lab(15).ForeColor = 255
		Ret = 1
	    End If
	End If
    End If
    'i = Val(Right$(Cb(35).Text, 6))
    'If i = 0 Then
    '    lab(61).ForeColor = 255
    '    Ret = 1
    'End If
End If
If Ret = 1 Then
    LabMsg(0).Caption = "Saisie incomplète"
    LabMsg(0).ForeColor = 255
    Exit Sub
End If

If ModeCreation = True Then
    Ret = DoInsert(0)
Else
    Ret = DoUpdate(0)
End If

If ModeEasy = True Then
    Ret = DoEasyMode(0)
End If

End Sub