Test

BlackjackGUI/Game.vb

@@ -190,14 +190,9 @@
     End Function
 
     Shared Function CreateDeck() As List(Of (String,String))
-        Dim response As New List(Of (String, String))
         Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}
         Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"}
-        For Each suit As String In suits
-            For Each num As String In nums
-                response.Add((suit, num))
-            Next
-        Next
+        Dim response As List(Of (String, String)) = (From suit In suits From num In nums Select (suit, num)).ToList()
         Return Utilities.Shuffle(response)
     End Function
 End Class