Sub Globals
Dim vbar As VSeekbar
Dim Hbar As HSeekbar
Dim cs, cs2 As CircleSeek
Dim ad As LeadBoltB4A
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("bar.bal")
Hbar.setColors(Colors.Black, Colors.white, Colors.rgb(255,180,180), Colors.white)
vbar.setColors(Colors.Black, Colors.yellow, Colors.rgb(150,150,255), Colors.white)
'Size.SetSize(Activity,480,320)
' Code creation
cs2.Initialize(Me,"cs2")
cs2.CodeCreateView(31%x,31%x,100, cs2.SHORT_KNOB)
Activity.AddView(cs2.AsView,20%x,60%y,40%x,40%x)
' set the colors and text size
cs.setColors(Colors.RGB(150,150,255), Colors.blue, Colors.RGB(180,180,255), Colors.Yellow, 12*Size.cf)
'cs2.setColors(Colors.RGB(150,150,255), Colors.blue, Colors.RGB(180,180,255), Colors.Yellow, 24*Size.cf)
' cs2 will have the default colors
'for all ad types
ad.Initialize("540410629")
'To run LeadBolt Display Ad
ad.loadAd()
End Sub