SUDOKU VISUAL BASIC CODE

Public Class SudokuForm Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Button6 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Button9 As System.Windows.Forms.Button Friend WithEvents Button10 As System.Windows.Forms.Button Friend WithEvents Button11 As System.Windows.Forms.Button Friend WithEvents Button12 As System.Windows.Forms.Button Friend WithEvents Button13 As System.Windows.Forms.Button Friend WithEvents Button14 As System.Windows.Forms.Button Friend WithEvents Button15 As System.Windows.Forms.Button Friend WithEvents Button16 As System.Windows.Forms.Button Friend WithEvents Button17 As System.Windows.Forms.Button Friend WithEvents Button18 As System.Windows.Forms.Button Friend WithEvents Button19 As System.Windows.Forms.Button Friend WithEvents Button20 As System.Windows.Forms.Button Friend WithEvents Button21 As System.Windows.Forms.Button Friend WithEvents Button22 As System.Windows.Forms.Button Friend WithEvents Button23 As System.Windows.Forms.Button Friend WithEvents Button24 As System.Windows.Forms.Button Friend WithEvents Button25 As System.Windows.Forms.Button

Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend

WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents

Button26 As System.Windows.Forms.Button Button27 As System.Windows.Forms.Button Button28 As System.Windows.Forms.Button Button29 As System.Windows.Forms.Button Button30 As System.Windows.Forms.Button Button31 As System.Windows.Forms.Button Button32 As System.Windows.Forms.Button Button33 As System.Windows.Forms.Button Button34 As System.Windows.Forms.Button Button35 As System.Windows.Forms.Button Button36 As System.Windows.Forms.Button Button37 As System.Windows.Forms.Button Button38 As System.Windows.Forms.Button Button39 As System.Windows.Forms.Button Button40 As System.Windows.Forms.Button Button41 As System.Windows.Forms.Button Button42 As System.Windows.Forms.Button Button43 As System.Windows.Forms.Button Button44 As System.Windows.Forms.Button Button45 As System.Windows.Forms.Button Button46 As System.Windows.Forms.Button Button47 As System.Windows.Forms.Button Button48 As System.Windows.Forms.Button Button49 As System.Windows.Forms.Button Button50 As System.Windows.Forms.Button Button51 As System.Windows.Forms.Button Button52 As System.Windows.Forms.Button Button53 As System.Windows.Forms.Button Button54 As System.Windows.Forms.Button Button55 As System.Windows.Forms.Button Button56 As System.Windows.Forms.Button Button57 As System.Windows.Forms.Button Button58 As System.Windows.Forms.Button Button59 As System.Windows.Forms.Button Button60 As System.Windows.Forms.Button Button61 As System.Windows.Forms.Button Button62 As System.Windows.Forms.Button Button63 As System.Windows.Forms.Button Button64 As System.Windows.Forms.Button Button65 As System.Windows.Forms.Button Button66 As System.Windows.Forms.Button Button67 As System.Windows.Forms.Button Button68 As System.Windows.Forms.Button Button69 As System.Windows.Forms.Button Button70 As System.Windows.Forms.Button Button71 As System.Windows.Forms.Button Button72 As System.Windows.Forms.Button Button73 As System.Windows.Forms.Button Button74 As System.Windows.Forms.Button Button75 As System.Windows.Forms.Button Button76 As System.Windows.Forms.Button Button77 As System.Windows.Forms.Button Button78 As System.Windows.Forms.Button Button79 As System.Windows.Forms.Button Button80 As System.Windows.Forms.Button Button81 As System.Windows.Forms.Button btnNewGame As System.Windows.Forms.Button Label1 As System.Windows.Forms.Label

Friend WithEvents spnDifficulty As System.Windows.Forms.NumericUpDown Friend WithEvents lblConfiguring As System.Windows.Forms.Label Friend WithEvents btnExit As System.Windows.Forms.Button Friend WithEvents btnShowSolution As System.Windows.Forms.Button Friend WithEvents lblDone As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.Button3 = New System.Windows.Forms.Button Me.Button4 = New System.Windows.Forms.Button Me.Button5 = New System.Windows.Forms.Button Me.Button6 = New System.Windows.Forms.Button Me.Button7 = New System.Windows.Forms.Button Me.Button8 = New System.Windows.Forms.Button Me.Button9 = New System.Windows.Forms.Button Me.Button10 = New System.Windows.Forms.Button Me.Button11 = New System.Windows.Forms.Button Me.Button12 = New System.Windows.Forms.Button Me.Button13 = New System.Windows.Forms.Button Me.Button14 = New System.Windows.Forms.Button Me.Button15 = New System.Windows.Forms.Button Me.Button16 = New System.Windows.Forms.Button Me.Button17 = New System.Windows.Forms.Button Me.Button18 = New System.Windows.Forms.Button Me.Button19 = New System.Windows.Forms.Button Me.Button20 = New System.Windows.Forms.Button Me.Button21 = New System.Windows.Forms.Button Me.Button22 = New System.Windows.Forms.Button Me.Button23 = New System.Windows.Forms.Button Me.Button24 = New System.Windows.Forms.Button Me.Button25 = New System.Windows.Forms.Button Me.Button26 = New System.Windows.Forms.Button Me.Button27 = New System.Windows.Forms.Button Me.Button28 = New System.Windows.Forms.Button Me.Button29 = New System.Windows.Forms.Button Me.Button30 = New System.Windows.Forms.Button Me.Button31 = New System.Windows.Forms.Button Me.Button32 = New System.Windows.Forms.Button Me.Button33 = New System.Windows.Forms.Button Me.Button34 = New System.Windows.Forms.Button Me.Button35 = New System.Windows.Forms.Button Me.Button36 = New System.Windows.Forms.Button Me.Button37 = New System.Windows.Forms.Button Me.Button38 = New System.Windows.Forms.Button Me.Button39 = New System.Windows.Forms.Button Me.Button40 = New System.Windows.Forms.Button Me.Button41 = New System.Windows.Forms.Button Me.Button42 = New System.Windows.Forms.Button Me.Button43 = New System.Windows.Forms.Button Me.Button44 = New System.Windows.Forms.Button Me.Button45 = New System.Windows.Forms.Button Me.Button46 = New System.Windows.Forms.Button Me.Button47 = New System.Windows.Forms.Button Me.Button48 = New System.Windows.Forms.Button Me.Button49 = New System.Windows.Forms.Button Me.Button50 = New System.Windows.Forms.Button Me.Button51 = New System.Windows.Forms.Button Me.Button52 = New System.Windows.Forms.Button

Me.Button53 = New System.Windows.Forms.Button Me.Button54 = New System.Windows.Forms.Button Me.Button55 = New System.Windows.Forms.Button Me.Button56 = New System.Windows.Forms.Button Me.Button57 = New System.Windows.Forms.Button Me.Button58 = New System.Windows.Forms.Button Me.Button59 = New System.Windows.Forms.Button Me.Button60 = New System.Windows.Forms.Button Me.Button61 = New System.Windows.Forms.Button Me.Button62 = New System.Windows.Forms.Button Me.Button63 = New System.Windows.Forms.Button Me.Button64 = New System.Windows.Forms.Button Me.Button65 = New System.Windows.Forms.Button Me.Button66 = New System.Windows.Forms.Button Me.Button67 = New System.Windows.Forms.Button Me.Button68 = New System.Windows.Forms.Button Me.Button69 = New System.Windows.Forms.Button Me.Button70 = New System.Windows.Forms.Button Me.Button71 = New System.Windows.Forms.Button Me.Button72 = New System.Windows.Forms.Button Me.Button73 = New System.Windows.Forms.Button Me.Button74 = New System.Windows.Forms.Button Me.Button75 = New System.Windows.Forms.Button Me.Button76 = New System.Windows.Forms.Button Me.Button77 = New System.Windows.Forms.Button Me.Button78 = New System.Windows.Forms.Button Me.Button79 = New System.Windows.Forms.Button Me.Button80 = New System.Windows.Forms.Button Me.Button81 = New System.Windows.Forms.Button Me.btnNewGame = New System.Windows.Forms.Button Me.spnDifficulty = New System.Windows.Forms.NumericUpDown Me.Label1 = New System.Windows.Forms.Label Me.lblConfiguring = New System.Windows.Forms.Label Me.btnExit = New System.Windows.Forms.Button Me.btnShowSolution = New System.Windows.Forms.Button Me.lblDone = New System.Windows.Forms.Label CType(Me.spnDifficulty, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(16, 16) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(24, 23) Me.Button1.TabIndex = 0 ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(40, 16) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(24, 23) Me.Button2.TabIndex = 1 ' 'Button3 ' Me.Button3.Location = New System.Drawing.Point(64, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(24, 23)

Me.Button3.TabIndex = 2 ' 'Button4 ' Me.Button4.Location = New System.Drawing.Point(96, 16) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(24, 23) Me.Button4.TabIndex = 3 ' 'Button5 ' Me.Button5.Location = New System.Drawing.Point(120, 16) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(24, 23) Me.Button5.TabIndex = 4 ' 'Button6 ' Me.Button6.Location = New System.Drawing.Point(144, 16) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(24, 23) Me.Button6.TabIndex = 5 ' 'Button7 ' Me.Button7.Location = New System.Drawing.Point(176, 16) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(24, 23) Me.Button7.TabIndex = 6 ' 'Button8 ' Me.Button8.Location = New System.Drawing.Point(200, 16) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(24, 23) Me.Button8.TabIndex = 7 ' 'Button9 ' Me.Button9.Location = New System.Drawing.Point(224, 16) Me.Button9.Name = "Button9" Me.Button9.Size = New System.Drawing.Size(24, 23) Me.Button9.TabIndex = 8 ' 'Button10 ' Me.Button10.Location = New System.Drawing.Point(16, 40) Me.Button10.Name = "Button10" Me.Button10.Size = New System.Drawing.Size(24, 23) Me.Button10.TabIndex = 9 ' 'Button11 ' Me.Button11.Location = New System.Drawing.Point(40, 40) Me.Button11.Name = "Button11" Me.Button11.Size = New System.Drawing.Size(24, 23) Me.Button11.TabIndex = 10 '

'Button12 ' Me.Button12.Location = New System.Drawing.Point(64, 40) Me.Button12.Name = "Button12" Me.Button12.Size = New System.Drawing.Size(24, 23) Me.Button12.TabIndex = 11 ' 'Button13 ' Me.Button13.Location = New System.Drawing.Point(96, 40) Me.Button13.Name = "Button13" Me.Button13.Size = New System.Drawing.Size(24, 23) Me.Button13.TabIndex = 12 ' 'Button14 ' Me.Button14.Location = New System.Drawing.Point(120, 40) Me.Button14.Name = "Button14" Me.Button14.Size = New System.Drawing.Size(24, 23) Me.Button14.TabIndex = 13 ' 'Button15 ' Me.Button15.Location = New System.Drawing.Point(144, 40) Me.Button15.Name = "Button15" Me.Button15.Size = New System.Drawing.Size(24, 23) Me.Button15.TabIndex = 14 ' 'Button16 ' Me.Button16.Location = New System.Drawing.Point(176, 40) Me.Button16.Name = "Button16" Me.Button16.Size = New System.Drawing.Size(24, 23) Me.Button16.TabIndex = 15 ' 'Button17 ' Me.Button17.Location = New System.Drawing.Point(200, 40) Me.Button17.Name = "Button17" Me.Button17.Size = New System.Drawing.Size(24, 23) Me.Button17.TabIndex = 16 ' 'Button18 ' Me.Button18.Location = New System.Drawing.Point(224, 40) Me.Button18.Name = "Button18" Me.Button18.Size = New System.Drawing.Size(24, 23) Me.Button18.TabIndex = 17 ' 'Button19 ' Me.Button19.Location = New System.Drawing.Point(16, 64) Me.Button19.Name = "Button19" Me.Button19.Size = New System.Drawing.Size(24, 23) Me.Button19.TabIndex = 18 ' 'Button20 '

Me.Button20.Location = New System.Drawing.Point(40, 64) Me.Button20.Name = "Button20" Me.Button20.Size = New System.Drawing.Size(24, 23) Me.Button20.TabIndex = 19 ' 'Button21 ' Me.Button21.Location = New System.Drawing.Point(64, 64) Me.Button21.Name = "Button21" Me.Button21.Size = New System.Drawing.Size(24, 23) Me.Button21.TabIndex = 20 ' 'Button22 ' Me.Button22.Location = New System.Drawing.Point(96, 64) Me.Button22.Name = "Button22" Me.Button22.Size = New System.Drawing.Size(24, 23) Me.Button22.TabIndex = 21 ' 'Button23 ' Me.Button23.Location = New System.Drawing.Point(120, 64) Me.Button23.Name = "Button23" Me.Button23.Size = New System.Drawing.Size(24, 23) Me.Button23.TabIndex = 22 ' 'Button24 ' Me.Button24.Location = New System.Drawing.Point(144, 64) Me.Button24.Name = "Button24" Me.Button24.Size = New System.Drawing.Size(24, 23) Me.Button24.TabIndex = 23 ' 'Button25 ' Me.Button25.Location = New System.Drawing.Point(176, 64) Me.Button25.Name = "Button25" Me.Button25.Size = New System.Drawing.Size(24, 23) Me.Button25.TabIndex = 24 ' 'Button26 ' Me.Button26.Location = New System.Drawing.Point(200, 64) Me.Button26.Name = "Button26" Me.Button26.Size = New System.Drawing.Size(24, 23) Me.Button26.TabIndex = 25 ' 'Button27 ' Me.Button27.Location = New System.Drawing.Point(224, 64) Me.Button27.Name = "Button27" Me.Button27.Size = New System.Drawing.Size(24, 23) Me.Button27.TabIndex = 26 ' 'Button28 ' Me.Button28.Location = New System.Drawing.Point(16, 96) Me.Button28.Name = "Button28"

Me.Button28.Size = New System.Drawing.Size(24, 23) Me.Button28.TabIndex = 53 ' 'Button29 ' Me.Button29.Location = New System.Drawing.Point(40, 96) Me.Button29.Name = "Button29" Me.Button29.Size = New System.Drawing.Size(24, 23) Me.Button29.TabIndex = 52 ' 'Button30 ' Me.Button30.Location = New System.Drawing.Point(64, 96) Me.Button30.Name = "Button30" Me.Button30.Size = New System.Drawing.Size(24, 23) Me.Button30.TabIndex = 51 ' 'Button31 ' Me.Button31.Location = New System.Drawing.Point(96, 96) Me.Button31.Name = "Button31" Me.Button31.Size = New System.Drawing.Size(24, 23) Me.Button31.TabIndex = 50 ' 'Button32 ' Me.Button32.Location = New System.Drawing.Point(120, 96) Me.Button32.Name = "Button32" Me.Button32.Size = New System.Drawing.Size(24, 23) Me.Button32.TabIndex = 49 ' 'Button33 ' Me.Button33.Location = New System.Drawing.Point(144, 96) Me.Button33.Name = "Button33" Me.Button33.Size = New System.Drawing.Size(24, 23) Me.Button33.TabIndex = 48 ' 'Button34 ' Me.Button34.Location = New System.Drawing.Point(176, 96) Me.Button34.Name = "Button34" Me.Button34.Size = New System.Drawing.Size(24, 23) Me.Button34.TabIndex = 47 ' 'Button35 ' Me.Button35.Location = New System.Drawing.Point(200, 96) Me.Button35.Name = "Button35" Me.Button35.Size = New System.Drawing.Size(24, 23) Me.Button35.TabIndex = 46 ' 'Button36 ' Me.Button36.Location = New System.Drawing.Point(224, 96) Me.Button36.Name = "Button36" Me.Button36.Size = New System.Drawing.Size(24, 23) Me.Button36.TabIndex = 45

' 'Button37 ' Me.Button37.Location = New System.Drawing.Point(16, 120) Me.Button37.Name = "Button37" Me.Button37.Size = New System.Drawing.Size(24, 23) Me.Button37.TabIndex = 44 ' 'Button38 ' Me.Button38.Location = New System.Drawing.Point(40, 120) Me.Button38.Name = "Button38" Me.Button38.Size = New System.Drawing.Size(24, 23) Me.Button38.TabIndex = 43 ' 'Button39 ' Me.Button39.Location = New System.Drawing.Point(64, 120) Me.Button39.Name = "Button39" Me.Button39.Size = New System.Drawing.Size(24, 23) Me.Button39.TabIndex = 42 ' 'Button40 ' Me.Button40.Location = New System.Drawing.Point(96, 120) Me.Button40.Name = "Button40" Me.Button40.Size = New System.Drawing.Size(24, 23) Me.Button40.TabIndex = 41 ' 'Button41 ' Me.Button41.Location = New System.Drawing.Point(120, 120) Me.Button41.Name = "Button41" Me.Button41.Size = New System.Drawing.Size(24, 23) Me.Button41.TabIndex = 40 ' 'Button42 ' Me.Button42.Location = New System.Drawing.Point(144, 120) Me.Button42.Name = "Button42" Me.Button42.Size = New System.Drawing.Size(24, 23) Me.Button42.TabIndex = 39 ' 'Button43 ' Me.Button43.Location = New System.Drawing.Point(176, 120) Me.Button43.Name = "Button43" Me.Button43.Size = New System.Drawing.Size(24, 23) Me.Button43.TabIndex = 38 ' 'Button44 ' Me.Button44.Location = New System.Drawing.Point(200, 120) Me.Button44.Name = "Button44" Me.Button44.Size = New System.Drawing.Size(24, 23) Me.Button44.TabIndex = 37 ' 'Button45

' Me.Button45.Location = New System.Drawing.Point(224, 120) Me.Button45.Name = "Button45" Me.Button45.Size = New System.Drawing.Size(24, 23) Me.Button45.TabIndex = 36 ' 'Button46 ' Me.Button46.Location = New System.Drawing.Point(16, 144) Me.Button46.Name = "Button46" Me.Button46.Size = New System.Drawing.Size(24, 23) Me.Button46.TabIndex = 35 ' 'Button47 ' Me.Button47.Location = New System.Drawing.Point(40, 144) Me.Button47.Name = "Button47" Me.Button47.Size = New System.Drawing.Size(24, 23) Me.Button47.TabIndex = 34 ' 'Button48 ' Me.Button48.Location = New System.Drawing.Point(64, 144) Me.Button48.Name = "Button48" Me.Button48.Size = New System.Drawing.Size(24, 23) Me.Button48.TabIndex = 33 ' 'Button49 ' Me.Button49.Location = New System.Drawing.Point(96, 144) Me.Button49.Name = "Button49" Me.Button49.Size = New System.Drawing.Size(24, 23) Me.Button49.TabIndex = 32 ' 'Button50 ' Me.Button50.Location = New System.Drawing.Point(120, 144) Me.Button50.Name = "Button50" Me.Button50.Size = New System.Drawing.Size(24, 23) Me.Button50.TabIndex = 31 ' 'Button51 ' Me.Button51.Location = New System.Drawing.Point(144, 144) Me.Button51.Name = "Button51" Me.Button51.Size = New System.Drawing.Size(24, 23) Me.Button51.TabIndex = 30 ' 'Button52 ' Me.Button52.Location = New System.Drawing.Point(176, 144) Me.Button52.Name = "Button52" Me.Button52.Size = New System.Drawing.Size(24, 23) Me.Button52.TabIndex = 29 ' 'Button53 ' Me.Button53.Location = New System.Drawing.Point(200, 144)

Me.Button53.Name = "Button53" Me.Button53.Size = New System.Drawing.Size(24, 23) Me.Button53.TabIndex = 28 ' 'Button54 ' Me.Button54.Location = New System.Drawing.Point(224, 144) Me.Button54.Name = "Button54" Me.Button54.Size = New System.Drawing.Size(24, 23) Me.Button54.TabIndex = 27 ' 'Button55 ' Me.Button55.Location = New System.Drawing.Point(16, 176) Me.Button55.Name = "Button55" Me.Button55.Size = New System.Drawing.Size(24, 23) Me.Button55.TabIndex = 80 ' 'Button56 ' Me.Button56.Location = New System.Drawing.Point(40, 176) Me.Button56.Name = "Button56" Me.Button56.Size = New System.Drawing.Size(24, 23) Me.Button56.TabIndex = 79 ' 'Button57 ' Me.Button57.Location = New System.Drawing.Point(64, 176) Me.Button57.Name = "Button57" Me.Button57.Size = New System.Drawing.Size(24, 23) Me.Button57.TabIndex = 78 ' 'Button58 ' Me.Button58.Location = New System.Drawing.Point(96, 176) Me.Button58.Name = "Button58" Me.Button58.Size = New System.Drawing.Size(24, 23) Me.Button58.TabIndex = 77 ' 'Button59 ' Me.Button59.Location = New System.Drawing.Point(120, 176) Me.Button59.Name = "Button59" Me.Button59.Size = New System.Drawing.Size(24, 23) Me.Button59.TabIndex = 76 ' 'Button60 ' Me.Button60.Location = New System.Drawing.Point(144, 176) Me.Button60.Name = "Button60" Me.Button60.Size = New System.Drawing.Size(24, 23) Me.Button60.TabIndex = 75 ' 'Button61 ' Me.Button61.Location = New System.Drawing.Point(176, 176) Me.Button61.Name = "Button61" Me.Button61.Size = New System.Drawing.Size(24, 23)

Me.Button61.TabIndex = 74 ' 'Button62 ' Me.Button62.Location = New System.Drawing.Point(200, 176) Me.Button62.Name = "Button62" Me.Button62.Size = New System.Drawing.Size(24, 23) Me.Button62.TabIndex = 73 ' 'Button63 ' Me.Button63.Location = New System.Drawing.Point(224, 176) Me.Button63.Name = "Button63" Me.Button63.Size = New System.Drawing.Size(24, 23) Me.Button63.TabIndex = 72 ' 'Button64 ' Me.Button64.Location = New System.Drawing.Point(16, 200) Me.Button64.Name = "Button64" Me.Button64.Size = New System.Drawing.Size(24, 23) Me.Button64.TabIndex = 71 ' 'Button65 ' Me.Button65.Location = New System.Drawing.Point(40, 200) Me.Button65.Name = "Button65" Me.Button65.Size = New System.Drawing.Size(24, 23) Me.Button65.TabIndex = 70 ' 'Button66 ' Me.Button66.Location = New System.Drawing.Point(64, 200) Me.Button66.Name = "Button66" Me.Button66.Size = New System.Drawing.Size(24, 23) Me.Button66.TabIndex = 69 ' 'Button67 ' Me.Button67.Location = New System.Drawing.Point(96, 200) Me.Button67.Name = "Button67" Me.Button67.Size = New System.Drawing.Size(24, 23) Me.Button67.TabIndex = 68 ' 'Button68 ' Me.Button68.Location = New System.Drawing.Point(120, 200) Me.Button68.Name = "Button68" Me.Button68.Size = New System.Drawing.Size(24, 23) Me.Button68.TabIndex = 67 ' 'Button69 ' Me.Button69.Location = New System.Drawing.Point(144, 200) Me.Button69.Name = "Button69" Me.Button69.Size = New System.Drawing.Size(24, 23) Me.Button69.TabIndex = 66 '

'Button70 ' Me.Button70.Location = New System.Drawing.Point(176, 200) Me.Button70.Name = "Button70" Me.Button70.Size = New System.Drawing.Size(24, 23) Me.Button70.TabIndex = 65 ' 'Button71 ' Me.Button71.Location = New System.Drawing.Point(200, 200) Me.Button71.Name = "Button71" Me.Button71.Size = New System.Drawing.Size(24, 23) Me.Button71.TabIndex = 64 ' 'Button72 ' Me.Button72.Location = New System.Drawing.Point(224, 200) Me.Button72.Name = "Button72" Me.Button72.Size = New System.Drawing.Size(24, 23) Me.Button72.TabIndex = 63 ' 'Button73 ' Me.Button73.Location = New System.Drawing.Point(16, 224) Me.Button73.Name = "Button73" Me.Button73.Size = New System.Drawing.Size(24, 23) Me.Button73.TabIndex = 62 ' 'Button74 ' Me.Button74.Location = New System.Drawing.Point(40, 224) Me.Button74.Name = "Button74" Me.Button74.Size = New System.Drawing.Size(24, 23) Me.Button74.TabIndex = 61 ' 'Button75 ' Me.Button75.Location = New System.Drawing.Point(64, 224) Me.Button75.Name = "Button75" Me.Button75.Size = New System.Drawing.Size(24, 23) Me.Button75.TabIndex = 60 ' 'Button76 ' Me.Button76.Location = New System.Drawing.Point(96, 224) Me.Button76.Name = "Button76" Me.Button76.Size = New System.Drawing.Size(24, 23) Me.Button76.TabIndex = 59 ' 'Button77 ' Me.Button77.Location = New System.Drawing.Point(120, 224) Me.Button77.Name = "Button77" Me.Button77.Size = New System.Drawing.Size(24, 23) Me.Button77.TabIndex = 58 ' 'Button78 '

Me.Button78.Location = New System.Drawing.Point(144, 224) Me.Button78.Name = "Button78" Me.Button78.Size = New System.Drawing.Size(24, 23) Me.Button78.TabIndex = 57 ' 'Button79 ' Me.Button79.Location = New System.Drawing.Point(176, 224) Me.Button79.Name = "Button79" Me.Button79.Size = New System.Drawing.Size(24, 23) Me.Button79.TabIndex = 56 ' 'Button80 ' Me.Button80.Location = New System.Drawing.Point(200, 224) Me.Button80.Name = "Button80" Me.Button80.Size = New System.Drawing.Size(24, 23) Me.Button80.TabIndex = 55 ' 'Button81 ' Me.Button81.Location = New System.Drawing.Point(224, 224) Me.Button81.Name = "Button81" Me.Button81.Size = New System.Drawing.Size(24, 23) Me.Button81.TabIndex = 54 ' 'btnNewGame ' Me.btnNewGame.Location = New System.Drawing.Point(16, 296) Me.btnNewGame.Name = "btnNewGame" Me.btnNewGame.Size = New System.Drawing.Size(104, 23) Me.btnNewGame.TabIndex = 81 Me.btnNewGame.Text = "New Game" ' 'spnDifficulty ' Me.spnDifficulty.Location = New System.Drawing.Point(72, 265) Me.spnDifficulty.Maximum = New Decimal(New Integer() {3, 0, 0, 0}) Me.spnDifficulty.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) Me.spnDifficulty.Name = "spnDifficulty" Me.spnDifficulty.Size = New System.Drawing.Size(32, 20) Me.spnDifficulty.TabIndex = 82 Me.spnDifficulty.Value = New Decimal(New Integer() {1, 0, 0, 0}) ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(16, 267) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(56, 16) Me.Label1.TabIndex = 83 Me.Label1.Text = "Difficulty:" ' 'lblConfiguring ' Me.lblConfiguring.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblConfiguring.Location = New System.Drawing.Point(40, 120)

Me.lblConfiguring.Name = "lblConfiguring" Me.lblConfiguring.Size = New System.Drawing.Size(184, 16) Me.lblConfiguring.TabIndex = 84 Me.lblConfiguring.Text = "Configuring... Please Wait." Me.lblConfiguring.Visible = False ' 'btnExit ' Me.btnExit.Location = New System.Drawing.Point(192, 264) Me.btnExit.Name = "btnExit" Me.btnExit.Size = New System.Drawing.Size(56, 23) Me.btnExit.TabIndex = 85 Me.btnExit.Text = "Exit" ' 'btnShowSolution ' Me.btnShowSolution.Enabled = False Me.btnShowSolution.Location = New System.Drawing.Point(144, 296) Me.btnShowSolution.Name = "btnShowSolution" Me.btnShowSolution.Size = New System.Drawing.Size(104, 24) Me.btnShowSolution.TabIndex = 86 Me.btnShowSolution.Text = "Show Solution" ' 'lblDone ' Me.lblDone.BackColor = System.Drawing.SystemColors.Info Me.lblDone.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblDone.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDone.Location = New System.Drawing.Point(120, 267) Me.lblDone.Name = "lblDone" Me.lblDone.Size = New System.Drawing.Size(48, 16) Me.lblDone.TabIndex = 87 Me.lblDone.Text = "DONE" Me.lblDone.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lblDone.Visible = False ' 'SudokuForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(264, 325) Me.Controls.Add(Me.lblDone) Me.Controls.Add(Me.btnShowSolution) Me.Controls.Add(Me.btnExit) Me.Controls.Add(Me.lblConfiguring) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.spnDifficulty) Me.Controls.Add(Me.btnNewGame) Me.Controls.Add(Me.Button55) Me.Controls.Add(Me.Button56) Me.Controls.Add(Me.Button57) Me.Controls.Add(Me.Button58) Me.Controls.Add(Me.Button59) Me.Controls.Add(Me.Button60) Me.Controls.Add(Me.Button61) Me.Controls.Add(Me.Button62) Me.Controls.Add(Me.Button63) Me.Controls.Add(Me.Button64)

Me.Controls.Add(Me.Button65) Me.Controls.Add(Me.Button66) Me.Controls.Add(Me.Button67) Me.Controls.Add(Me.Button68) Me.Controls.Add(Me.Button69) Me.Controls.Add(Me.Button70) Me.Controls.Add(Me.Button71) Me.Controls.Add(Me.Button72) Me.Controls.Add(Me.Button73) Me.Controls.Add(Me.Button74) Me.Controls.Add(Me.Button75) Me.Controls.Add(Me.Button76) Me.Controls.Add(Me.Button77) Me.Controls.Add(Me.Button78) Me.Controls.Add(Me.Button79) Me.Controls.Add(Me.Button80) Me.Controls.Add(Me.Button81) Me.Controls.Add(Me.Button28) Me.Controls.Add(Me.Button29) Me.Controls.Add(Me.Button30) Me.Controls.Add(Me.Button31) Me.Controls.Add(Me.Button32) Me.Controls.Add(Me.Button33) Me.Controls.Add(Me.Button34) Me.Controls.Add(Me.Button35) Me.Controls.Add(Me.Button36) Me.Controls.Add(Me.Button37) Me.Controls.Add(Me.Button38) Me.Controls.Add(Me.Button39) Me.Controls.Add(Me.Button40) Me.Controls.Add(Me.Button41) Me.Controls.Add(Me.Button42) Me.Controls.Add(Me.Button43) Me.Controls.Add(Me.Button44) Me.Controls.Add(Me.Button45) Me.Controls.Add(Me.Button46) Me.Controls.Add(Me.Button47) Me.Controls.Add(Me.Button48) Me.Controls.Add(Me.Button49) Me.Controls.Add(Me.Button50) Me.Controls.Add(Me.Button51) Me.Controls.Add(Me.Button52) Me.Controls.Add(Me.Button53) Me.Controls.Add(Me.Button54) Me.Controls.Add(Me.Button27) Me.Controls.Add(Me.Button26) Me.Controls.Add(Me.Button25) Me.Controls.Add(Me.Button24) Me.Controls.Add(Me.Button23) Me.Controls.Add(Me.Button22) Me.Controls.Add(Me.Button21) Me.Controls.Add(Me.Button20) Me.Controls.Add(Me.Button19) Me.Controls.Add(Me.Button18) Me.Controls.Add(Me.Button17) Me.Controls.Add(Me.Button16) Me.Controls.Add(Me.Button15) Me.Controls.Add(Me.Button14)

Me.Controls.Add(Me.Button13) Me.Controls.Add(Me.Button12) Me.Controls.Add(Me.Button11) Me.Controls.Add(Me.Button10) Me.Controls.Add(Me.Button9) Me.Controls.Add(Me.Button8) Me.Controls.Add(Me.Button7) Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Name = "SudokuForm" Me.Text = "Sudoku" CType(Me.spnDifficulty, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region ' Private attributes Private SolutionShown As Boolean = False Private SudokuGrid(81) As Integer Private SudokuTemp(81) As String Private SudokuSolution(81) As String Friend Buttons(81) As Button Friend WithEvents TmpButton As Button Private CurButtons(81) As Button Private RandNumb As New System.Random(CType(Now.Ticks Mod Int32.MaxValue, Integer)) Private Sub SudokuForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i, j, k As Integer Dim row, col As Integer CurButtons(1) = Button1 CurButtons(2) = Button2 CurButtons(3) = Button3 CurButtons(4) = Button4 CurButtons(5) = Button5 CurButtons(6) = Button6 CurButtons(7) = Button7 CurButtons(8) = Button8 CurButtons(9) = Button9 CurButtons(10) = Button10 CurButtons(11) = Button11 CurButtons(12) = Button12 CurButtons(13) = Button13 CurButtons(14) = Button14 CurButtons(15) = Button15 CurButtons(16) = Button16 CurButtons(17) = Button17 CurButtons(18) = Button18 CurButtons(19) = Button19 CurButtons(20) = Button20 CurButtons(21) = Button21

CurButtons(22) CurButtons(23) CurButtons(24) CurButtons(25) CurButtons(26) CurButtons(27) CurButtons(28) CurButtons(29) CurButtons(30) CurButtons(31) CurButtons(32) CurButtons(33) CurButtons(34) CurButtons(35) CurButtons(36) CurButtons(37) CurButtons(38) CurButtons(39) CurButtons(40) CurButtons(41) CurButtons(42) CurButtons(43) CurButtons(44) CurButtons(45) CurButtons(46) CurButtons(47) CurButtons(48) CurButtons(49) CurButtons(50) CurButtons(51) CurButtons(52) CurButtons(53) CurButtons(54) CurButtons(55) CurButtons(56) CurButtons(57) CurButtons(58) CurButtons(59) CurButtons(60) CurButtons(61) CurButtons(62) CurButtons(63) CurButtons(64) CurButtons(65) CurButtons(66) CurButtons(67) CurButtons(68) CurButtons(69) CurButtons(70) CurButtons(71) CurButtons(72) CurButtons(73) CurButtons(74) CurButtons(75) CurButtons(76) CurButtons(77) CurButtons(78) CurButtons(79)

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Button22 Button23 Button24 Button25 Button26 Button27 Button28 Button29 Button30 Button31 Button32 Button33 Button34 Button35 Button36 Button37 Button38 Button39 Button40 Button41 Button42 Button43 Button44 Button45 Button46 Button47 Button48 Button49 Button50 Button51 Button52 Button53 Button54 Button55 Button56 Button57 Button58 Button59 Button60 Button61 Button62 Button63 Button64 Button65 Button66 Button67 Button68 Button69 Button70 Button71 Button72 Button73 Button74 Button75 Button76 Button77 Button78 Button79

CurButtons(80) = Button80 CurButtons(81) = Button81 For i = 1 To 81 CurButtons(i).Enabled = False CurButtons(i).Visible = False Next i For i = 1 To 81 j = Int((i - 1) / 9) k = ((i - 1) Mod 9) row = Int(j / 3) col = Int(k / 3) TmpButton = New Button TmpButton.Text = Trim(i.ToString) TmpButton.Name = "Buttons" + Trim(i.ToString) TmpButton.Location = New Point(16 + (k * 24) + (col * 8), 16 + (j * 24) + (row * 8)) TmpButton.Size = New Size(24, 23) TmpButton.SetBounds(16 + (k * 24) + (col * 8), 16 + (j * 24) + (row * 8), 24, 23) TmpButton.Visible = True AddHandler TmpButton.Click, AddressOf Me.SudokuButton_Click Buttons(i) = TmpButton Buttons(i).Visible = True Buttons(i).Update() Buttons(i).Refresh() Next i End Sub ' ---------------------------------------------------------------------' ROUTINE: btnNewGame_Click() ' DESCRIPTION: This routine starts a new game. ' PARAMETERS: sender -- sending object ' e -- event arguments ' RETURN VALUE: None. ' ---------------------------------------------------------------------Private Sub btnNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewGame.Click While Not CreateSudokuGrid() End While lblDone.Visible = False btnShowSolution.Enabled = True btnShowSolution.Text = "Show Solution" SolutionShown = False End Sub ' ---------------------------------------------------------------------' ROUTINE: btnExit_Click() ' DESCRIPTION: This routine exits the application. ' PARAMETERS: sender -- sending object ' e -- event arguments ' RETURN VALUE: None. ' ---------------------------------------------------------------------Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Close() End Sub ' ----------------------------------------------------------------------

' ROUTINE: SudokuButton_Click() ' DESCRIPTION: Handles all digital (1-9) value toggle button clicks. ' PARAMETERS: sender -- sending object ' e -- event arguments ' RETURN VALUE: None. ' ---------------------------------------------------------------------'Private Sub SudokuButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub SudokuButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click, Button11.Click, Button12.Click, Button13.Click, Button14.Click, Button15.Click, Button16.Click, Button17.Click, Button18.Click, Button19.Click, Button20.Click, Button21.Click, Button22.Click, Button23.Click, Button24.Click, Button25.Click, Button26.Click, Button27.Click, Button28.Click, Button29.Click, Button30.Click, Button31.Click, Button32.Click, Button33.Click, Button34.Click, Button35.Click, Button36.Click, Button37.Click, Button38.Click, Button39.Click, Button40.Click, Button41.Click, Button42.Click, Button43.Click, Button44.Click, Button45.Click, Button46.Click, Button47.Click, Button48.Click, Button49.Click, Button50.Click, Button51.Click, Button52.Click, Button53.Click, Button54.Click, Button55.Click, Button56.Click, Button57.Click, Button58.Click, Button59.Click, Button60.Click, Button61.Click, Button62.Click, Button63.Click, Button64.Click, Button65.Click, Button66.Click, Button67.Click, Button68.Click, Button69.Click, Button70.Click, Button71.Click, Button72.Click, Button73.Click, Button74.Click, Button75.Click, Button76.Click, Button77.Click, Button78.Click, Button79.Click, Button80.Click, Button81.Click Dim i As Integer Dim solFound As Boolean = True Dim CurButton As Button = CType(sender, Button) If Not SolutionShown Then If CurButton.Text = "" Then CurButton.Text = "1" ElseIf CurButton.Text = "9" Then CurButton.Text = "" Else CurButton.Text = Trim(Str(CInt(CurButton.Text) + 1)) End If For i = 1 To 81 If CurButtons(i).Text <> SudokuSolution(i) Then solFound = False Exit For End If Next i lblDone.Visible = solFound End If End Sub ' ---------------------------------------------------------------------' ROUTINE: btnShowSolution_Click() ' DESCRIPTION: This routine shows the solution. ' PARAMETERS: sender -- sending object ' e -- event arguments ' RETURN VALUE: None. ' ---------------------------------------------------------------------Private Sub btnShowSolution_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowSolution.Click Dim i As Integer

If SolutionShown Then For i = 1 To 81 CurButtons(i).Text = SudokuTemp(i) Next i btnShowSolution.Text = "Show Solution" Else For i = 1 To 81 SudokuTemp(i) = CurButtons(i).Text CurButtons(i).Text = SudokuSolution(i) Next i btnShowSolution.Text = "Hide Solution" End If SolutionShown = Not SolutionShown End Sub ' ---------------------------------------------------------------------' ROUTINE: CreateSudokuGrid() ' DESCRIPTION: This routine creates a Sudoku grid. ' PARAMETERS: None. ' RETURN VALUE: TRUE if grid is solvable, FALSE if not. ' ---------------------------------------------------------------------Private Function CreateSudokuGrid() As Boolean Dim i, j, k As Integer Dim numRand As Integer Dim CurButton As Button Dim ValIsOK(9) As Boolean Dim valsOK As Integer = 0 Cursor.Current = Cursors.WaitCursor lblConfiguring.Visible = True For i = 1 To 81 CurButton = CurButtons(i) CurButton.Text = "" CurButton.BackColor = System.Drawing.Color.LightGray CurButton.Visible = False SudokuSolution(i) = "" Next i lblConfiguring.Visible = True lblConfiguring.Refresh() For i = 1 To 81 If True Then CurButton = CurButtons(i) valsOK = GetValidVals(i, ValIsOK) If valsOK <= 0 Then Return False End If numRand = RandNumb.Next(0, valsOK) + 1 k = 0 For j = 1 To 9 If ValIsOK(j) Then k = k + 1 If k = numRand Then Exit For End If End If Next j CurButton.Text = j.ToString()

CurButton.BackColor = System.Drawing.Color.Gray End If Next i lblConfiguring.Visible = False For i = 1 To 81 CurButton = CurButtons(i) SudokuSolution(i) = CurButton.Text numRand = RandNumb.Next(0, spnDifficulty.Value + 1) + 1 If numRand > 1 Then CurButton.Text = "" CurButton.BackColor = System.Drawing.Color.LightGray CurButton.Enabled = True Else CurButton.Enabled = False End If CurButton.Visible = True Next i Cursor.Current = Cursors.Default Return True End Function ' ---------------------------------------------------------------------' ROUTINE: GetGridVals() ' DESCRIPTION: This routine creates a Sudoku grid. ' PARAMETERS: Location - grid location to get next value for. ' ValidVals - validity checks for 9 possible values. ' RETURN VALUE: Number of valid values indicated in ValidVals. ' ---------------------------------------------------------------------Private Function GetValidVals(ByVal Location As Integer, ByRef ValidVals As Boolean()) As Integer Dim i, j, k As Integer Dim row, col As Integer Dim numStr As String Dim numOK As Boolean Dim retVal As Integer = 0 For i = 1 To 9 numOK = True numStr = i.ToString() For j = 1 To 9 k = (Int((Location - 1) / 9) * 9) + j If CurButtons(k).Text = numStr Then numOK = False Exit For End If Next j If numOK Then For j = 1 To 9 k = (((Location - 1) Mod 9) + 1) + ((j - 1) * 9) If CurButtons(k).Text = numStr Then numOK = False Exit For End If Next j End If If numOK Then row = Int(Int((Location - 1) / 9) / 3) col = Int(((Location - 1) Mod 9) / 3)

For j = 1 To 9 k = (((row * 3) + Int((j - 1) / 3)) * 9) + (col * 3) + ((j - 1) Mod 3) + 1 If CurButtons(k).Text = numStr Then numOK = False Exit For End If Next j End If ValidVals(i) = numOK If numOK Then retVal = retVal + 1 End If Next i Return retVal End Function End Class