Наверно имеется в виду - анимированная иконка в нижней панели, когда окно программы минимизировано и произошло какое-то событие.
Можно попробовать таймером поочередно менять иконки в свойстве Icon формы (или даже главного окна _Screen.Icon), но наверно все равно, как в The Bat не получится.
На foxclub.ru были похожие решения и обсуждения. Поищи по названиям: в решениях - "Работа с иконками в Tray (VFP7) в виде класса (VCX)." и на форуме - http://forum.foxclub.ru/read.php?f=29&i=7627&t=7250#reply_7627

Ну, если уж так хочется - отрежь голову форме и прилепи собственную - сделав ее, скажем, из контейнера. Приделай к ней метод на клик-захват, чтобы за нее тоже можно было таскать форму, сделай крестик, минимум-максиму, если надо, ну и положи к ней в угол - хоть gif-ку, хоть ani-шку.

Я как-то делал - у меня вообще по всей шапке - звездочки бегали :) Прикольно

lo-pata 2 Crispy
)) А овчинка тогда выделки стоит? Столько мудохаться из-за анимированной иконки? Мне будет в лом, честно говрю.
Ну это уж тебе видней Хотя там делов-то - на пару минут (ну не пару, но полчаса максимум). А если прочитаешь это, то - как раз и на пару минут :).
Надо просто прописать кое-что в методах MouseDown, MouseUp, MouseMove. Но сначала делаешь переменную, которая будет меняться с .f. на .t. при дауне, там же запоминаешь координаты (конечно, тоже в переменные:), потом в MouseMove, если твоя переменная .t. и nButton=1, приращиваешь координаты формы на разность между запомненными и теми, что там получишь. А в MouseUp - снова сбрасываешь свою переменную в .f. И всего-то.
Только не забудь тоже самое прописать и на такие же методы у всего, что лежит на шапке. А то вдруг, по ним щелкнут.

Hi, Igor Korolyov !

Ну почему же?... Возможно такие выводы были сделаны на основании чисто теоретических рассуждений? Тогда, вот - чтобы не слишком обременять с проверкой, могу привести уже готовый пример вполне работоспособного кода того, что было описано выше, думаю уж в этом-то - легко убедиться? (кнопку воткнул попроще, у меня она была с картинкой)
Control = CREATEOBJECT("MyForm")
Control.Show(0)
READ EVENTS
CLEAR EVENTS
**************************************************
DEFINE CLASS MyForm AS form
DoCreate = .T.
TitleBar = 0
Name = "MyForm"

ADD OBJECT container1 AS container WITH ;
Top = -1, ;
Left = -1, ;
Width = 379, ;
Height = 22, ;
BackColor = RGB(0,0,160), ;
Name = "Container1"

ADD OBJECT x AS commandbutton WITH ;
Top = 1, ;
Left = 355, ;
Width = 20, ;
Height = 20, ;
Name = "x"

PROCEDURE Init
PUBLIC Xold,Yold,fixCoord
STORE 0 to Xold,Yold
ENDPROC

PROCEDURE x.Click
thisform.Release()
CLEAR EVENTS
ENDPROC

PROCEDURE Container1.MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
fixCoord = .T.
Xold = nXCoord
Yold = nYCoord
ENDPROC

PROCEDURE Container1.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1 AND fixCoord
thisform.Left = ThisForm.Left + (nXCoord - Xold)
thisform.Top = ThisForm.Top + (nYCoord - Yold)
endif
ENDPROC

PROCEDURE Container1.MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
fixCoord = .F.
ENDPROC

ENDDEFINE

Это из моего первого проекта на vfp, когда я экспериментировал со свойствами контролов в плане возможностей графического интерфейса, надо же было попрактиковаться "на кошечках" :). Там, правда, было все понавороченней и чисто визуально (но ведь - без разницы, главное - идея). Прога называлась "Астропрогноз на дату и время". Контейнер был с градиентом, и по таймеру и ген.сл.чисел мерцала надпись, и вращаясь пролетали звездочки... :)) Так что, там - все это было к месту. Само собой, я понимаю, что в обычных задачах применять такое нет смысла. Возможно, что и сам код не оптимален, но поскольку и не возникало необходимости его усовершенствовать, я над этим как-то больше и не думал. ;)
Самое смешное, что, кажется, той программкой время от времени пользуются...

2leaf :

Так это ж просто болванка - чтоб было покороче, для демонстрации всего лишь принципиальной возможности того, о чем я написал выше (причем тут resizing?) - ответ на то, что "ТАК перетаскивание за "свою" шапку формы не сделаешь".
А насчет оптимальности - я этого и не утверждал (наверное, можно все улучшить). Мне оно просто пока, вроде бы как, и не надо.

Hi, Igor Korolyov !

Да, занятная штучка! Но до такого, конечно, уже просто так не додумаешься, уже кое-что знать надо... А тогда - я просто использовал логику и немного хэлп... :)