#If B4J
Private Sub xlbl_ClickMe_MouseClicked (EventData As MouseEvent)
#Else
Private Sub xlbl_ClickMe_Click
#End If
OpenPanel
End Sub
Private Sub OpenPanel
fp.Initialize(Me,"fp",Root)
fp.PreSize(200dip,200dip)
fp.Panel.LoadLayout("frm_Content")
fp.OpenOrientation = fp.OpenOrientation_RightBottom
fp.ArrowVisible = True
fp.ArrowProperties.Left = xlbl_ClickMe.Width/2
fp.ArrowProperties.ArrowOrientation = fp.ArrowOrientation_Top
fp.CloseOnTap = True
'Under the Button
Dim Top As Float = xlbl_ClickMe.Top + xlbl_ClickMe.Height + 10dip
fp.Show(xlbl_ClickMe.Left,Top ,200dip,200dip)
'Top of the Button
' Dim Top As Float = xlbl_ClickMe.Top - 200dip - 10dip
' fp.Show(xlbl_ClickMe.Left,Top ,200dip,200dip)
End Sub