I began working on this again this morning and I found that if I tried setting the picture at runtime twice in a row for the same picture value that the animation worked. I'm not sure why but I put the code to set the value of the picture twice and it seems to work fine although I don't see why it doesn't work the first time. I put the code I'm using down below but I was now wondering is there a way to insert pictures into a combo box or list box?

PRIVATE cur_pic

CHDIR (m.pic_dir)

m.cur_pic = GETPICT("GIF")

IF !EMPTY(m.cur_pic)
	ThisForm.img_pic.picture = m.cur_pic
	ThisForm.lbl_pic.Visible = .F.
	ThisForm.img_pic.Visible = .T.
ENDIF

CHDIR (m.home_dir)

IF !EMPTY(m.cur_pic)
	ThisForm.img_pic.picture = m.cur_pic
ENDIF