Sub Process_Globals
Dim Timer1 As Timer
End Sub
Sub Globals
Dim pnlTest As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Timer1.Initialize("Timer1", 20)
pnlTest.Initialize("pnlTest")
pnlTest.Color = Colors.Red
' Activity.AddView(pnlTest, 60dip, -700dip, 1800dip, 700dip)
Activity.AddView(pnlTest, 60, -700, 1800, 700)
End Sub
Sub Activity_Click
Timer1.Enabled = True
End Sub
Sub Timer1_Tick
' pnlTest.Top = pnlTest.Top + 20dip
pnlTest.Top = pnlTest.Top + 20
If pnlTest.Top >= 0 Then
Timer1.Enabled = False
End If
End Sub