(1) 新建Standard Visual用戶對(duì)象uo_transparent_st，類型為定義實(shí)例變量：

　　Boolean ib_painting

　　(2) 編寫uo_transparent_st的Constructor 事件腳本：
　　// 透明色 536870912
　　This.backcolor = 2^29

　　(3) 定義用戶對(duì)象uo_transparent_st的用戶事件ue_paint（Event ID：pbm_paint），并編寫腳本如下：
　　IF IsValid(This) THEN
　　if ib_painting THEN Return 0
　　ib_painting = True
　　This.Visible = False
　　Do While Yield()
　　Loop
　　This.Visible = True
　　ib_painting = False
　　END IF</P><P>Return 0