I guess this works:
Code:
        Dim Options() As String = {"xxxx", "oxxx", "ooxx", "ooox", "oooo", "xooo", "xxoo", "xxxo", "oxxo", "ooxo", "xoxo", "xoxx", "xoox", "xxox", "oxox", "oxoo"}
        For x As Integer = 0 To 15
            For y As Integer = 0 To 15
                Debug.Print(Options(x) & " " & Options(y))
            Next
        Next
Still curious as to other solutions