Sub Activity_Create(FirstTime As Boolean)
'...
ExpandView.Init
ExpandView.AddView(Panel1, 2dip, 0, -1, ExpandView.EXPVW_DIR_BOTTOM_TO_TOP)
ExpandView.AddView(Panel2, 2dip, 10dip, -1, ExpandView.EXPVW_DIR_LEFT_TO_RIGHT)
End Sub
Sub chkEpanded_CheckedChange(Checked As Boolean)
ExpandView.Animate(Panel1, -1)
End Sub
Sub Panel2_Click
ExpandView.Animate(Panel2, -1)
End Sub