Hi everybody,

I'm trying to use AnimationControl from Alexander Grigoriev CommCtrl.vcx from Download section here. I want to show sendmail avi in the status bar while I'm sending e-mails. I placed the control on the form and set property of AutoPlay to .t. and InStatusBar to .t. (in design-time)

Here is my code:

if type('thisform.oAnimation')<>"O"
					thisform.newobject('oAnimation','AnimationControl','CommCtrl.vcx')
				endif
				with thisform.oAnimation
					.AutoPlay = .t.
					.InStatusBar = .t. && Display animation in Status Bar
					lcAVIFile = addbs(justpath(fullpath('CommCtrl.vcx')))+'AVIs\SendMail.avi'
					wait window transform(thisform.oAnimation.visible)
					set step on
					.open(m.lcAVIFile)
					lnReturn = IDSEMail('Geiss','Wellcome new Filing Dates file',m.lcText)
					*lnReturn = MailWithGroupWise('Geiss','Wellcome new Filing Dates file',m.lcText)
					.close()
				endwith

However, it doesn't do anything and avi is not played in the status bar. What can I do?

I have another animation class by Daniel Gramunt, but his class playes avi in the middle of the screen and not in the status bar...