Private Sub AddItem(Caption As String, pnlName As String, img As String, pressedImg As String)
' lets create a button with icons first
Dim ImgEnabled As BitmapDrawable
Dim ImgPressed As BitmapDrawable
Dim sld As StateListDrawable
ImgPressed.Initialize(LoadBitmap(File.DirAssets, pressedImg))
ImgEnabled.Initialize(LoadBitmap(File.DirAssets, img))
Dim Button1 As Button
Dim Label1 As Label
Dim pnl As Panel
pnl.Initialize("")
pnl.LoadLayout(pnlName)
pnl.Color = Colors.Transparent
Label1.Text = Caption
pnl.Tag = Label1.text
Button1.Tag = pnl
sld.Initialize
sld.AddState(sld.State_Pressed, ImgPressed)
sld.AddState(sld.State_Enabled, ImgEnabled)
Button1.Background = sld
dashboard.AddView(pnl, 100dip, 150dip)
End Sub