Case Study: Sudukucubes?

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged Timer1.Start() T = 0 Dim index As Integer = ComboBox1.SelectedIndex For x As Integer = 0 To 8 For y As Integer = 0 To 8 SudukuCubes(x, y).Text = "" SudukuCubes(x, y).ReadOnly = False Next Next Select Case index Case Is = 0 'Easy Puzzle level = "Easy" For x As Integer = 0 To 8 For y As Integer = 0 To 8 SudukuCubes(x, y).Text = easyPuzzle(x, y) If SudukuCubes(x, y).Text <> "" Then SudukuCubes(x, y).ReadOnly = True
End If Next Next Case Is = 1 'Medium Puzzle level = "Medium" For x As Integer = 0 To 8 For y As Integer = 0 To 8 SudukuCubes(x, y).Text = MedPuzzle(x, y) If SudukuCubes(x, y).Text <> "" Then SudukuCubes(x, y).ReadOnly = True End If Next Next Case Is = 2 'Hard Puzzle level = "Hard" For x As Integer = 0 To 8 For y As Integer = 0 To 8 SudukuCubes(x, y).Text = HardPuzzle(x, y) If SudukuCubes(x, y).Text <> "" Then SudukuCubes(x, y).ReadOnly = True End If Next Next End Select End Sub 'the combo box

'the colomn checker for all