Hmmmmm….. 
Dim spincnt As IntegerPrivate Sub SpinButton1_SpinDown()spincnt = spincnt - 1If spincnt < 1 Thenspincnt = 1End IfWith Sheets("Sheet1").Image1.Picture = PicCollect(spincnt)End WithEnd SubPrivate Sub SpinButton1_SpinUp()spincnt = spincnt + 1If spincnt > PicCollect.Count Thenspincnt = PicCollect.CountEnd IfWith Sheets("Sheet1").Image1.Picture = PicCollect(spincnt)End WithEnd Sub