Private Sub lblhome_Click
Pnlmenuhold.Addview(CreateListItemPage("pghome",Pnlmenuhold.Width, Pnlmenuhold.Height+50 ),0,0,Pnlmenuhold.Width,Pnlmenuhold.Height)
End Sub
Private Sub lblnotif_Click
Pnlmenuhold.Addview(CreateListItemPage("pgnotif",Pnlmenuhold.Width, Pnlmenuhold.Height+50 ),0,0,Pnlmenuhold.Width,Pnlmenuhold.Height)
End Sub
Private Sub lblhistory_Click
Pnlmenuhold.Addview(CreateListItemPage("pghistory",Pnlmenuhold.Width, Pnlmenuhold.Height+50 ),0,0,Pnlmenuhold.Width,Pnlmenuhold.Height)
End Sub
Sub CreateListItemPage(namapage As String ,Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
Root.AddView(p ,0,0, Width, Height)
p.LoadLayout(namapage)
p.RemoveView
Return p
End Sub