（2）淡出時字符由小到大，淡入時則由大到小。另外，本程序的實現過程可完全方便地向VisualC、Visualjava等可視話語言移植。

----一.啟動VisualBasic4.0，自動生成一個窗體，默認為FORM1。

----二.將該窗體的屬性設置如下：

NAME：DEMO
CAPTION：VB實現字符的淡入淡出
BACKCOLOR：&H00C0C0C0,即背景為灰色

----三.在窗體DEMO中定義以下窗體變量,即在General-declaration過程中定義色彩參數R，G，B。

DimrAsInteger
DimgAsInteger
DinbAsInteger

----四.在Form-load過程中設置字符色彩初值,即灰
色：

PrivateSubForm_Load()
r=192
g=192
b=192
EndSub

----五.在窗體DEMO中加入一標簽，其屬性設置如下：

NAME：LABEL1
CAPTION：哈爾濱國投債券交易系統
AUTOSIZE：TRUE，用以實現字符的縮放
BACKSTYLE：0-TRANSPARENT，即透明
FONT：字體為隸書，大小選擇為8

----六.在窗體中加入定時器控件，用以完成淡出功能，設置如下：

NAME：OUTTIMER
INTERVAL：50，即隔一秒中斷一次，色彩變化一次。

----七.再加入一個定時器，完成淡入功能：

NAME：INTIMER
INTERVAL：50

----八.在OUTTIMER的TIMER過程中加入以下代碼：

PrivateSubOuttimer_Timer()
Ifr<255Then
r=r 1
Else
r=255
EndIf
Ifg>3Then
g=g-3
Else:g=0
EndIf
Ifb>3Then
b=b-3
Else:b=0
EndIf
Label1.FontSize=Label1.FontSize 0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72Then
Outtimer.Enabled=False
Intimer.Enabled=True
EndIf
EndSub

----九.在INTIMER中加入如下代碼：

PrivateSubIntimer_Timer()
Ifr>192Then
r=r-1
Else
r=192
EndIf
Ifg<192Then
g=g 3
Else:g=192
EndIf
Ifb<192Then
b=b 3
Else:b=192
EndIf
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=False
Outtimer.Enabled=True
EndIf
EndSub

----當完成上述步驟后，按運行按扭，就可看到在窗體內“哈爾濱國投證券交易系統”幾個字由小到大、有淺入深地顯示出來；當字體達到規定的大小時，又漸漸地消失在窗體之中，實現淡出淡入的功能。