Dim gstrQuestions As String(,) = { _
    {"English Springer Spaniel", "Akita", "Husky", "Bearded Collie", "dog051.jpg"}, _
    {"Pug", "Whippet", "Fox Terrier", "English Setter", "dog50.jpg"}, _
    {"Chow Chow", "Beagle", "Labrador Retriever", "Foxhound", "dog068.jpg"}, _
    {"Great Dane", "Dachshund", "Samoyed", "Newfoundland", "dog044.jpg"}, _
    {"Samoyed", "Pekingese", "English Setter", "Pomeranian", "dog088.jpg"}, _
    {"Old English Sheepdog", "Saluki", "Rottweiler", "Poodle", "dog074.jpg"}, _
    {"Collie", "Boston Terrier", "Bichon Frise", "Akita", "dog007.jpg"}}