public Sub show
pnl.Initialize("pnl")
pnl.Color=Colors.White
ed.Initialize("")
ed.TextColor=Colors.Black
Dim b1 As Button
b1.Initialize("b1")
pnl.AddView(ed,10dip,10dip,200dip,60dip)
pnl.AddView(b1,10dip,100dip,100dip,50dip)
mActivity.AddView(pnl,5%x,25%x,90%x,50%x)
btt=0 'this is defined at class globals
End Sub
Sub b1_click
ret = ed.Text
pnl.RemoveView
CallSub(Main,"Message")
End Sub