'Initializing class
ScallingParallax.Initialize(Holder,Toolbar,RecyclerView)
'Add header content
Dim Img As ImageView
Img.Initialize("")
ScallingParallax.Content.AddView(Img,0,0,-1,-1)
Img.SetBackgroundImage(Bitmap)
'Customize items background
Dim CD As ColorDrawable
CD.Initialize(0xFF00D474,0)
ScallingParallax.Items.Background = CD
'Add items
AddItem("Watch Now",Chr(0xF26C))
AddItem("Comments",Chr(0xF0E5))
Private Sub AddItem (Text As String,Icon As Object)
Dim Lbl As Label
Lbl.Initialize("Item")
Lbl.TextColor = Colors.White
Lbl.Gravity = Gravity.CENTER
Dim CS As CSBuilder
CS.Initialize.Typeface(Typeface.FONTAWESOME).Size(20).Append(Icon).PopAll
CS.Size(16).Append(" "&Text)
Lbl.Text = CS.PopAll
Lbl.Tag = Text
ScallingParallax.AddItem(Lbl)
End Sub