سلام و خسته نباشید
بنده طبق فیلم پیش رفتم ولی متاسفانه در خروجی همش کرش میکنه
بنده تو این اپ به جز کتابخونه های مورد نیاز دیزاینر ساپورت از floating action button و MSMatrialDrawer استفاده کردم
دقیقا هم به خاط این چند خط کد کرش میکنه چون اینو پاک میکنم درست کار میکنه اپ
For i=0 To 2
Dim panel1 As Panel
panel1.Initialize("")
panel1.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
PC1.AddPage(panel1,"Matrial"&i)
Next
VP1.PageContainer = PC1
Tabs1.TabGravity = Gravity.CENTER
Tabs1.TabMode = Tabs1.MODE_FIXED
Dim Ac As AppCompat
Tabs1.Color = Ac.GetThemeAttribute("colorPrimary")
Tabs1.TabIndicatorColor = Colors.Black
Tabs1.SetViewPager(VP1)
ممنون میشم راهنمایی کنید