ok i got the multiple pictures to work but i am getting them one late like the first picture is the second to show and second is third and so on any ideas? And it hs the same problem going backwards.

Private Sub Data1_Validate(Action As Integer, Save As Integer)
Select Case Trim(lblname.Caption)
Case Is = "#1 Bear"
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\#1.jpg")
Case Is = "1997 Employee Bear"
Picture1.Picture = LoadPicture("")
Case Is = "1997 Holiday Teddy"
'1997 Holiday Teddy Picture
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\97teddy3_small.jpg")
Case Is = "1998 Holiday Teddy"
'1998 Holiday Teddy Picture
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\98teddy_small.jpg")
Case Is = "1999 Holiday Teddy"
Picture1.Picture = LoadPicture("C:\My Documents\Project\Babies\1999holiday.gif")
End Select
End Sub