FlickrNet in Windows 8 - VB.Net

' This sample can be placed in the standard Windows 8 Grid project template with no other changes
' and it will produce a complete functioning application. Place inside the SampleDataSource New method

' Be sure to replace the APIKEY below with your own api key.

Dim flickr As New Flickr(APIKEY)

flickr.PhotosetsGetListAsync("41888973@N00",
     1,
     10, Sub(r)
             For Each photoset In r.Result
                 Dim group As New SampleDataGroup(photoset.PhotosetId, photoset.Title, Nothing, photoset.PhotosetSmallUrl, photoset.Description)
                 AllGroups.Add(group)

                 flickr.PhotosetsGetPhotosAsync(photoset.PhotosetId,
                        PhotoSearchExtras.Description Or PhotoSearchExtras.AllUrls Or PhotoSearchExtras.OwnerName Or PhotoSearchExtras.DateTaken,
                        1,
                        20,
                        Sub(r2)
                            For Each Photo In r2.Result
                                Dim content = String.Format("By {0}, taken on {1}", Photo.OwnerName, Photo.DateTaken.ToString())
                                group.Items.Add(New SampleDataItem(Photo.PhotoId, Photo.Title, Nothing, Photo.MediumUrl, Photo.Description, content, group))
                            Next
                        End Sub)
             Next
         End Sub)