The custom view is scrollview.
code
Dim sv1 As ScrollView
sv1.Top=1%y
sv1.Height=90%y
sv1.Left=1%x
sv1.Width =98%x
'PanelCanvas.Initialize("")
sv1.Panel.AddView(PanelTables,1%x,1%y,96%x,100%y)
sv1.SendToBack
sv1.Panel.Height=PanelTables.Height
Dim lbl As Label
Dim lp As Panel
Dim spn As Spinner
lbl.Initialize("")
lp.Initialize("lp")
spn.Initialize("spn")
spn.Color=Colors.Black
spn.TextColor=Colors.White
lp.AddView(lbl,1%x,1%y,99%x,50dip)
DBUtils.ExecuteSpinner(SQL,"Select fbchoice from AMASTER" , Null,0,spn)
lp.AddView(spn,1%x,lbl.top+32dip,70%x,80dip)
sv1.Panel.AddView(PanelTables,1%x,1%y,96%x,100%y)
dim tnFreeHand as button
btnFreeHand.Initialize("click")
btnFreeHand.Text ="Free Hand Style"
/code
now all the views are appearing with the mentioned short comings mentioned in my previous post.