Public Sub Initialize(vCallback As Object, ev As String,Page As Page)
CallBack = vCallback
Evt = ev
Dim imgPullTab As ImageView
imgPullTab.Initialize("imgPullTab")
imgPullTab.Bitmap = LoadBitmap(File.DirAssets,"actionbarpulltab.png")
imgPullTab.BringToFront
Page.RootPanel.AddView(imgPullTab,0,0,100dip,100dip)
End Sub
Sub imgPullTab_Click
'**** NOT FIRING
End Sub