1. สร้าง Project ใหม่แบบ Standard EXE มา
2. สร้าง Timer 1 ตัว และกำหนด ค่า Interval ให้เป็น 250
3. ใส่โค้ดดังนี้ครับ
Private Sub Timer1_Timer()
Static Text As String
Static intC As Integer
On Error Resume Next
Text = Space(30) & "นี่คือเทคนิคการใส่ Effect ให้กับ TitleBar"
Caption = Mid(Text, intC, 30)
intC = intC + 1
If intC = Len(Text) Then intC = 0
End Sub
แล้วคุณสามารถเปลี่ยนค่าของตัวแปร Text ให้เป็นอย่างอื่นก็ได้ครับ
สำหรับเทคนิคนี้ก็ยังสามารถดัดแปลงเอาไปใช้อย่างอื่นอีกก็ได้เช่นข้อความใน TextBox,Label,Command Button ครับ
อ้างอิงจาก http://www.siamdev.net
