Sub PicBtn_Click (Index As Integer)
Dim Ret%
Dim s1$

LabMsg(0).Caption = ""
LabMsg(1).Caption = ""
Select Case Index
    Case 0
	Ret = EventObject(0,"", XASEVTOBJECT_NOTIFYPARENT, 10, "")
    Case 1
	 Ret = DoCreation(Index)
    Case 2
	Ret = 0
    Case 3
	Celframe(0).Visible = False
	Celframe(1).Visible = True
	PicBtn(3).Visible = False
	PicBtn(5).Visible = False
	PicBtn(6).Visible = False
	PicBtn(7).Visible = False
	If maj = 1 Then
	   Ret = DoSearchArticle(0)
	   maj = 0
	End If
    Case 4
    Case 5
	Ret = 0
	PicBtn(6).Visible = True
	curRow = curRow - 1
	If curRow >= 1 Then
	    GridList.Col = 5
	    s1 = GridList.Text
	    GridList.Row = curRow
	    Ret = ListeToPage(s1)
	    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
	    GridList.Col = 5
	    s1 = GridList.Text
	    GridList.Row = curRow
	    Ret = ListeToPage(s1)
	    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