'Initialize the library
Dim Dashboard As SlidingDashboard
'Create the SlidingDashboard
Dashboard.Initialize(Activity, Me, "TileClicked", Colors.White, "", 80%x, 80%y, "R")
'Add some tiles to the SlidingDashboard
Dashboard.AddTile(Image, 120dip, 100dip, 1)
Dashboard.AddTile(Image, 120dip, 100dip, 2)
Dashboard.AddTile(Image, 120dip, 100dip, 3)
'Capture the tile clicked
Sub TileClicked_Click(Tile As Object)
ToastMessageShow("Tile clicked = " & Tile, False)
End Sub