Sub Globals
'Declare the global variables here.
jump = -10
End Sub
Sub App_Start
AddForm("Form1", "Form1")
AddPanel("Form1", "Panel1", 0, Form1.Height, Form1.Width, 100)
AddTimer("Timer1")
panel1.color = cRed
AddButton("Form1", "B2", 0, 0, 50, 50)
Form1.text = panel1.top
timer1.interval = 10
AddButton("Panel1", "B1", 90, 20, 50, 50)
form1.show
AddForm("frmMn", "frmMn")
AddPanel("frmMn", "P1", 10, 10, 100, 100)
AddRadioBtn("P1", "RB1", 10, 10, 100, 20, "RB1")
AddRadioBtn("P1", "RB2", 10, 30, 100, 20, "RB2")
End Sub
Sub Timer1_Tick
panel1.top = panel1.top + jump
Form1.text = panel1.top
If panel1.top + panel1.height <= Form1.height Then
panel1.top = Form1.height - panel1.height
timer1.enabled = False
End If
End Sub
Sub b2_Click
timer1.enabled = True
End Sub
Sub B1_Click
frmMn.Show
End Sub
Sub rb1_Click
Msgbox(1)
End Sub
Sub rb2_Click
Msgbox(2)
End Sub