I'm trying to create a form where the user can change the picture shown on the form using the getpic command and setting the value of the picture control to this value. The picture shows up fine but if its a animated gif it does not show the animation for some reason. Normally when you add a animated gif to a form at design time the animation plays. Can anyone tell me if there is some property I need to set in order for the animation to play when setting the picture value at run time?

PRIVATE cur_pic
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