上一篇博客介紹了如何制作動態效果的控件，如何把空間加入控件庫，如何引用控件。本篇繼續介紹動態控件制作，主要是提供一種思路。
我們使用“部分圓”工具畫一個1/4圓，取消全局顏色方案，背景顏色綠色如下：
同樣在制作一個1/4圓如下：
這兩個扇形模擬扇葉效果，把它們拼放在一起如下：
全選中這兩個部分圓，右鍵-自定義對象-創建，將兩個部分圓的起始角度、結束角度屬性拖拽到自定義控件幾何屬性集下面。屬性名稱分別修改為startangle1、startangle2、endangel、endangle2。
然后在自定義控件屬性-幾何-起始角度1，右鍵-添加以下vbs腳本，觸發器500ms：
Function StartAngle1_Trigger(ByVal Item)
item.startangle1=item.startangle1+45
item.endangle1=item.endangle1+45
item.startangle2=item.startangle2+45
item.endangle2=item.endangle2+45
If item.endangle1=360 Then
item.endangle1=0
End If
If item.endangle2=360 Then
item.endangle2=0
End If
End Function
保存后就可以添加到控件庫了，添加和引用控件庫控件的方法不再做介紹，運行時，每500ms轉動45°的效果。