[الاستاذ خليل]

السلام عليكم

اثناء بحثي عن التحريك وجدت هذا الكود الشيق بمساعد الافس و هو خاص باضهار مساعد الافس مثل الدبوس وتستطيعوا تغيير شكلة.

قم بإدراج زر CommandButton1
و اكتب بداخله هذا الكود (انسخه والصقه هناك)

With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationGetTechy

End With

و لتغيير شكله استبدل اجملة الاخيرة msoAnimationGetTechy
بأحدى الجمل التالية:

msoAnimationCheckingSomething
msoAnimationGetTechy

msoAnimationListensToComputer

msoAnimationSearching

msoAnimationThinking
msoAnimationWorkingAtSomething

msoAnimationWritingNotingSomething


جرب بنفسك و هذا ملف تطبيقي
الاستاذ خليل