PB中文本框设置成透明效果

文本框 contructor事件：     
BackColor     =     2^29     

定义变量：

boolean ib_painting

新增自定义事件ue_paint 事件ID(pbm_paint):   
if     IsValid(This)     then     

if     ib_painting     then     Return 0     
ib_painting     =     True     
Visible     =     False     
Do     While     Yield()     
Loop     
Visible     =     True     
ib_painting     =     False 

    
end     if     
Return 0