‘###########################################################
‘ Script Name: Moving Sized Label
‘ Author: Ehab Kanani
‘ Descreption: This Client Script will create a label that gets bigger to reach a particular size then stops using a timer.
‘ Website:http://www.hybridsolutions.com
‘ Date: March, 22nd, 2012
‘###########################################################

Dim objIDDim fontSizeDim objColor''' 
''' The main function is the entry point for any Script program''' 
Public Sub main()objID="label1"fontSize=8CreateObjectLabel 0,0,CSTR(objID),50,50,"welcome to VTL World "IntervalTimer 1000EnableTimer TrueEnd Sub''' 
''' The function is generated when a new tick is received fro any symbol''' 
Public Sub OnTick(SymbolName)End Sub''' 
''' The function is generated when initialization script''' 
Public Sub OnInit()'''TODO: initialization methodEnd Sub''' 
''' The function is generated when deinitialization script''' 
Public Sub OnDeInit()'''TODO: deinitialization methodEnd Sub''' 
''' The OnTimer function called when the timer event occurs''' 
Public Sub OnTimer()fontSize=fontSize+1objColor=RGBColor(200,10 * fontSize,10 * fontSize)ObjectSetText 0,CSTR(objID),CINT(fontSize),,CLNG(objColor)if fontSize=30 then EnableTimer falseEnd if End sub

See Also

• BitMap Image
• Account Summary on Chart
• Client Market Order

Back to VTL Client Script Index