MyMenu.Initialize(Activity, Me, "Books Collection", "Test", "L", 30dip, 100%x, Colors.Transparent, Null)
MyMenu.AddItem(icon, "List", Colors.White, Colors.Transparent, 1)
MyMenu.AddItem(1, " 01", Colors.White, Colors.darkGray, 2)
MyMenu.AddItem(2, " 02", Colors.White, Colors.Transparent, 3)
MyMenu.AddItem(3, " 03", Colors.White, Colors.darkGray, 4)
MyMenu.AddItem(4, " 03", Colors.White, Colors.Transparent, 5)
MyMenu.AddItem(Null, "", Colors.White, Colors.Transparent, 6)
MyMenu.SetTitle(Colors.Transparent, Colors.White, Gravity.CENTER_HORIZONTAL, Null)
MyMenu.OpenMenu("Default")
End Sub
Sub Test_Click(SelectedItem As Object)
If SelectedItem = 1 Then
StartActivity(MyCollection)
End If
If SelectedItem = 2 Then
1panel.Visible=True
End If
If SelectedItem = 3 Then
2panel.Visible=True
End If
If SelectedItem = 4 Then
3panel.Visible=True
End If
If SelectedItem = 5 Then
4panel.Visible=True
End If