Sub PicBtn_Click (Index As Integer)
Dim Ret%
LabMsg(0).Caption = ""
LabMsg(1).Caption = ""
ModeCreation = False
Select Case Index
    Case 0
	Ret = EventObject(0,"", XASEVTOBJECT_NOTIFYPARENT, 10, "")
    Case 1
	 Ret = InitCreation(Index)
    Case 2
    Case 3
	For Ret = 1 To 3
	    LbOnglet(Ret).Visible = True
	Next Ret
	Cel(2).Visible = False
	Cel(1).Visible = True
	PicBtn(3).Visible = False
	PicBtn(5).Visible = False
	PicBtn(6).Visible = False
	PicBtn(7).Visible = False
	If Maj = 1 Then
	   Ret = DoListEntity(TypeEntity)
	   Maj = 0
	End If
    Case 4
    Case 5
	Ret = 0
	PicBtn(6).Visible = True
	curRow = curRow - 1
	If curRow >= 1 Then
	    Ret = ListeToPage(0)
	    If curRow = 1 Then
		PicBtn(5).Visible = False
	    End If
	Else
	    PicBtn(5).Visible = False
	End If
    Case 6
	PicBtn(5).Visible = True
	curRow = curRow + 1
	If curRow < MaxRow Then
	    Ret = ListeToPage(0)
	    If curRow = MaxRow - 1 Then
		 PicBtn(6).Visible = False
		 PicBtn(5).Visible = True
	    End If
	Else
	    PicBtn(6).Visible = False
	End If
End Select
End Sub