MainForm.vb

 Public Class MainForm
    Inherits System.Windows.Forms.Form
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents btnSelectNbUser As System.Windows.Forms.Button
    Friend WithEvents btnGenerateNbUser As System.Windows.Forms.Button
    Friend WithEvents txtUserNb6 As System.Windows.Forms.TextBox
    Friend WithEvents txtUserNb5 As System.Windows.Forms.TextBox
    Friend WithEvents txtUserNb4 As System.Windows.Forms.TextBox
    Friend WithEvents txtUserNb3 As System.Windows.Forms.TextBox
    Friend WithEvents txtUserNb2 As System.Windows.Forms.TextBox
    Friend WithEvents txtUserNb1 As System.Windows.Forms.TextBox
    Friend WithEvents btnCheck As System.Windows.Forms.Button
    Friend WithEvents txtLOTONumbers As System.Windows.Forms.TextBox
    Friend WithEvents btnClear As System.Windows.Forms.Button
    Friend WithEvents lblLOTONumbers As System.Windows.Forms.Label
    Private s As String
    Private Cmp As String
    Private temp As String
    Private k As Integer

#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 txtNb1 As System.Windows.Forms.TextBox
    Friend WithEvents txtNb2 As System.Windows.Forms.TextBox
    Friend WithEvents txtNb4 As System.Windows.Forms.TextBox
    Friend WithEvents txtNb5 As System.Windows.Forms.TextBox
    Friend WithEvents txtNb6 As System.Windows.Forms.TextBox
    Friend WithEvents txtNb3 As System.Windows.Forms.TextBox
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents btnSave As System.Windows.Forms.Button
    Friend WithEvents btnGenerateNumber As System.Windows.Forms.Button
    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
    Friend WithEvents mnuFile As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuExit As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents mnuAbout As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents btn1 As System.Windows.Forms.Button
    Friend WithEvents btn2 As System.Windows.Forms.Button
    Friend WithEvents btn3 As System.Windows.Forms.Button
    Friend WithEvents btn5 As System.Windows.Forms.Button
    Friend WithEvents btn4 As System.Windows.Forms.Button
    Friend WithEvents btn6 As System.Windows.Forms.Button
    Friend WithEvents btn8 As System.Windows.Forms.Button
    Friend WithEvents btn7 As System.Windows.Forms.Button
    Friend WithEvents btn9 As System.Windows.Forms.Button
    Friend WithEvents btn10 As System.Windows.Forms.Button
    Friend WithEvents btn11 As System.Windows.Forms.Button
    Friend WithEvents btn12 As System.Windows.Forms.Button
    Friend WithEvents btn16 As System.Windows.Forms.Button
    Friend WithEvents btn42 As System.Windows.Forms.Button
    Friend WithEvents btn14 As System.Windows.Forms.Button
    Friend WithEvents btn13 As System.Windows.Forms.Button
    Friend WithEvents btn35 As System.Windows.Forms.Button
    Friend WithEvents btn40 As System.Windows.Forms.Button
    Friend WithEvents btn36 As System.Windows.Forms.Button
    Friend WithEvents btn15 As System.Windows.Forms.Button
    Friend WithEvents btn17 As System.Windows.Forms.Button
    Friend WithEvents btn21 As System.Windows.Forms.Button
    Friend WithEvents btn22 As System.Windows.Forms.Button
    Friend WithEvents btn19 As System.Windows.Forms.Button
    Friend WithEvents btn18 As System.Windows.Forms.Button
    Friend WithEvents btn20 As System.Windows.Forms.Button
    Friend WithEvents btn23 As System.Windows.Forms.Button
    Friend WithEvents btn38 As System.Windows.Forms.Button
    Friend WithEvents btn37 As System.Windows.Forms.Button
    Friend WithEvents btn41 As System.Windows.Forms.Button
    Friend WithEvents btn28 As System.Windows.Forms.Button
    Friend WithEvents btn27 As System.Windows.Forms.Button
    Friend WithEvents btn26 As System.Windows.Forms.Button
    Friend WithEvents btn25 As System.Windows.Forms.Button
    Friend WithEvents btn24 As System.Windows.Forms.Button
    Friend WithEvents btn39 As System.Windows.Forms.Button
    Friend WithEvents btn34 As System.Windows.Forms.Button
    Friend WithEvents btn33 As System.Windows.Forms.Button
    Friend WithEvents btn32 As System.Windows.Forms.Button
    Friend WithEvents btn31 As System.Windows.Forms.Button
    Friend WithEvents btn30 As System.Windows.Forms.Button
    Friend WithEvents btn29 As System.Windows.Forms.Button
    Friend WithEvents btnDisplay As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.txtNb1 = New System.Windows.Forms.TextBox
        Me.txtNb2 = New System.Windows.Forms.TextBox
        Me.txtNb4 = New System.Windows.Forms.TextBox
        Me.txtNb5 = New System.Windows.Forms.TextBox
        Me.txtNb6 = New System.Windows.Forms.TextBox
        Me.txtNb3 = New System.Windows.Forms.TextBox
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.btnDisplay = New System.Windows.Forms.Button
        Me.btnSave = New System.Windows.Forms.Button
        Me.btnGenerateNumber = New System.Windows.Forms.Button
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
        Me.mnuFile = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuExit = New System.Windows.Forms.ToolStripMenuItem
        Me.mnuAbout = New System.Windows.Forms.ToolStripMenuItem
        Me.btn1 = New System.Windows.Forms.Button
        Me.btn2 = New System.Windows.Forms.Button
        Me.btn3 = New System.Windows.Forms.Button
        Me.btn5 = New System.Windows.Forms.Button
        Me.btn4 = New System.Windows.Forms.Button
        Me.btn6 = New System.Windows.Forms.Button
        Me.btn8 = New System.Windows.Forms.Button
        Me.btn7 = New System.Windows.Forms.Button
        Me.btn9 = New System.Windows.Forms.Button
        Me.btn10 = New System.Windows.Forms.Button
        Me.btn11 = New System.Windows.Forms.Button
        Me.btn12 = New System.Windows.Forms.Button
        Me.btn16 = New System.Windows.Forms.Button
        Me.btn42 = New System.Windows.Forms.Button
        Me.btn14 = New System.Windows.Forms.Button
        Me.btn13 = New System.Windows.Forms.Button
        Me.btn35 = New System.Windows.Forms.Button
        Me.btn40 = New System.Windows.Forms.Button
        Me.btn36 = New System.Windows.Forms.Button
        Me.btn15 = New System.Windows.Forms.Button
        Me.btn17 = New System.Windows.Forms.Button
        Me.btn21 = New System.Windows.Forms.Button
        Me.btn22 = New System.Windows.Forms.Button
        Me.btn19 = New System.Windows.Forms.Button
        Me.btn18 = New System.Windows.Forms.Button
        Me.btn20 = New System.Windows.Forms.Button
        Me.btn23 = New System.Windows.Forms.Button
        Me.btn38 = New System.Windows.Forms.Button
        Me.btn37 = New System.Windows.Forms.Button
        Me.btn41 = New System.Windows.Forms.Button
        Me.btn28 = New System.Windows.Forms.Button
        Me.btn27 = New System.Windows.Forms.Button
        Me.btn26 = New System.Windows.Forms.Button
        Me.btn25 = New System.Windows.Forms.Button
        Me.btn24 = New System.Windows.Forms.Button
        Me.btn39 = New System.Windows.Forms.Button
        Me.btn34 = New System.Windows.Forms.Button
        Me.btn33 = New System.Windows.Forms.Button
        Me.btn32 = New System.Windows.Forms.Button
        Me.btn31 = New System.Windows.Forms.Button
        Me.btn30 = New System.Windows.Forms.Button
        Me.btn29 = New System.Windows.Forms.Button
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.btnCheck = New System.Windows.Forms.Button
        Me.btnSelectNbUser = New System.Windows.Forms.Button
        Me.btnGenerateNbUser = New System.Windows.Forms.Button
        Me.txtUserNb6 = New System.Windows.Forms.TextBox
        Me.txtUserNb5 = New System.Windows.Forms.TextBox
        Me.txtUserNb4 = New System.Windows.Forms.TextBox
        Me.txtUserNb3 = New System.Windows.Forms.TextBox
        Me.txtUserNb2 = New System.Windows.Forms.TextBox
        Me.txtUserNb1 = New System.Windows.Forms.TextBox
        Me.txtLOTONumbers = New System.Windows.Forms.TextBox
        Me.btnClear = New System.Windows.Forms.Button
        Me.lblLOTONumbers = New System.Windows.Forms.Label
        Me.MenuStrip1.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.SuspendLayout()
        '
        'txtNb1
        '
        Me.txtNb1.BackColor = System.Drawing.Color.Black
        Me.txtNb1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNb1.ForeColor = System.Drawing.Color.White
        Me.txtNb1.Location = New System.Drawing.Point(31, 39)
        Me.txtNb1.MaxLength = 2
        Me.txtNb1.Name = "txtNb1"
        Me.txtNb1.ReadOnly = True
        Me.txtNb1.Size = New System.Drawing.Size(32, 20)
        Me.txtNb1.TabIndex = 0
        Me.txtNb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtNb2
        '
        Me.txtNb2.BackColor = System.Drawing.Color.Black
        Me.txtNb2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNb2.ForeColor = System.Drawing.Color.White
        Me.txtNb2.Location = New System.Drawing.Point(71, 39)
        Me.txtNb2.MaxLength = 2
        Me.txtNb2.Name = "txtNb2"
        Me.txtNb2.ReadOnly = True
        Me.txtNb2.Size = New System.Drawing.Size(32, 20)
        Me.txtNb2.TabIndex = 1
        Me.txtNb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtNb4
        '
        Me.txtNb4.BackColor = System.Drawing.Color.Black
        Me.txtNb4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNb4.ForeColor = System.Drawing.Color.White
        Me.txtNb4.Location = New System.Drawing.Point(151, 39)
        Me.txtNb4.MaxLength = 2
        Me.txtNb4.Name = "txtNb4"
        Me.txtNb4.ReadOnly = True
        Me.txtNb4.Size = New System.Drawing.Size(32, 20)
        Me.txtNb4.TabIndex = 3
        Me.txtNb4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtNb5
        '
        Me.txtNb5.BackColor = System.Drawing.Color.Black
        Me.txtNb5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNb5.ForeColor = System.Drawing.Color.White
        Me.txtNb5.Location = New System.Drawing.Point(191, 39)
        Me.txtNb5.MaxLength = 2
        Me.txtNb5.Name = "txtNb5"
        Me.txtNb5.ReadOnly = True
        Me.txtNb5.Size = New System.Drawing.Size(32, 20)
        Me.txtNb5.TabIndex = 4
        Me.txtNb5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtNb6
        '
        Me.txtNb6.BackColor = System.Drawing.Color.Black
        Me.txtNb6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNb6.ForeColor = System.Drawing.Color.White
        Me.txtNb6.Location = New System.Drawing.Point(231, 39)
        Me.txtNb6.MaxLength = 2
        Me.txtNb6.Name = "txtNb6"
        Me.txtNb6.ReadOnly = True
        Me.txtNb6.Size = New System.Drawing.Size(32, 20)
        Me.txtNb6.TabIndex = 5
        Me.txtNb6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtNb3
        '
        Me.txtNb3.BackColor = System.Drawing.Color.Black
        Me.txtNb3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtNb3.ForeColor = System.Drawing.Color.White
        Me.txtNb3.Location = New System.Drawing.Point(111, 39)
        Me.txtNb3.MaxLength = 2
        Me.txtNb3.Name = "txtNb3"
        Me.txtNb3.ReadOnly = True
        Me.txtNb3.Size = New System.Drawing.Size(32, 20)
        Me.txtNb3.TabIndex = 2
        Me.txtNb3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'ComboBox1
        '
        Me.ComboBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ComboBox1.Items.AddRange(New Object() {"AliceBlue", "AntiqueWhite", "Aqua", "Aquamarine", "Azure", "Beige", "Bisque", "Black", "BlanchedAlmond", "Blue", "BlueViolet", "CadetBlue", "Chartreuse", "Chocolate", "Cyan", "DarkBlue", "Fuchsia", "Gold", "Gray", "Green", "GreenYellow", "Honeydew", "HotPink", "IndianRed", "Indigo", "Lavender", "LavenderBlush", "LightYellow", "Navy", "Olive", "Purple", "Red", "RoyalBlue", "Salmon", "Silver", "SkyBlue", "Tomato", "Violet", "White", "WhiteSmoke", "Yellow", "YellowGreen"})
        Me.ComboBox1.Location = New System.Drawing.Point(758, 3)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(104, 21)
        Me.ComboBox1.TabIndex = 7
        Me.ComboBox1.Text = "Select bg color"
        '
        'btnDisplay
        '
        Me.btnDisplay.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnDisplay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnDisplay.Location = New System.Drawing.Point(191, 71)
        Me.btnDisplay.Name = "btnDisplay"
        Me.btnDisplay.Size = New System.Drawing.Size(75, 23)
        Me.btnDisplay.TabIndex = 9
        Me.btnDisplay.Text = "&Display"
        Me.btnDisplay.UseVisualStyleBackColor = False
        '
        'btnSave
        '
        Me.btnSave.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnSave.Location = New System.Drawing.Point(111, 71)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(75, 23)
        Me.btnSave.TabIndex = 8
        Me.btnSave.Text = "&Save"
        Me.btnSave.UseVisualStyleBackColor = False
        '
        'btnGenerateNumber
        '
        Me.btnGenerateNumber.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnGenerateNumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnGenerateNumber.Location = New System.Drawing.Point(31, 71)
        Me.btnGenerateNumber.Name = "btnGenerateNumber"
        Me.btnGenerateNumber.Size = New System.Drawing.Size(75, 23)
        Me.btnGenerateNumber.TabIndex = 6
        Me.btnGenerateNumber.Text = "&Generate"
        Me.btnGenerateNumber.UseVisualStyleBackColor = False
        '
        'MenuStrip1
        '
        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFile, Me.mnuAbout})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(862, 24)
        Me.MenuStrip1.TabIndex = 10
        Me.MenuStrip1.Text = "MenuStrip1"
        '
        'mnuFile
        '
        Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuExit})
        Me.mnuFile.Name = "mnuFile"
        Me.mnuFile.Size = New System.Drawing.Size(38, 20)
        Me.mnuFile.Text = "&File"
        '
        'mnuExit
        '
        Me.mnuExit.Name = "mnuExit"
        Me.mnuExit.Size = New System.Drawing.Size(152, 22)
        Me.mnuExit.Text = "E&xit"
        '
        'mnuAbout
        '
        Me.mnuAbout.Name = "mnuAbout"
        Me.mnuAbout.Size = New System.Drawing.Size(53, 20)
        Me.mnuAbout.Text = "&About"
        '
        'btn1
        '
        Me.btn1.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn1.Location = New System.Drawing.Point(77, 37)
        Me.btn1.Name = "btn1"
        Me.btn1.Size = New System.Drawing.Size(28, 23)
        Me.btn1.TabIndex = 1
        Me.btn1.Text = "1"
        Me.btn1.UseVisualStyleBackColor = False
        '
        'btn2
        '
        Me.btn2.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn2.Location = New System.Drawing.Point(111, 37)
        Me.btn2.Name = "btn2"
        Me.btn2.Size = New System.Drawing.Size(28, 23)
        Me.btn2.TabIndex = 2
        Me.btn2.Text = "2"
        Me.btn2.UseVisualStyleBackColor = False
        '
        'btn3
        '
        Me.btn3.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn3.Location = New System.Drawing.Point(145, 37)
        Me.btn3.Name = "btn3"
        Me.btn3.Size = New System.Drawing.Size(28, 23)
        Me.btn3.TabIndex = 3
        Me.btn3.Text = "3"
        Me.btn3.UseVisualStyleBackColor = False
        '
        'btn5
        '
        Me.btn5.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn5.Location = New System.Drawing.Point(213, 37)
        Me.btn5.Name = "btn5"
        Me.btn5.Size = New System.Drawing.Size(28, 23)
        Me.btn5.TabIndex = 5
        Me.btn5.Text = "5"
        Me.btn5.UseVisualStyleBackColor = False
        '
        'btn4
        '
        Me.btn4.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn4.Location = New System.Drawing.Point(179, 37)
        Me.btn4.Name = "btn4"
        Me.btn4.Size = New System.Drawing.Size(28, 23)
        Me.btn4.TabIndex = 4
        Me.btn4.Text = "4"
        Me.btn4.UseVisualStyleBackColor = False
        '
        'btn6
        '
        Me.btn6.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn6.Location = New System.Drawing.Point(247, 37)
        Me.btn6.Name = "btn6"
        Me.btn6.Size = New System.Drawing.Size(28, 23)
        Me.btn6.TabIndex = 6
        Me.btn6.Text = "6"
        Me.btn6.UseVisualStyleBackColor = False
        '
        'btn8
        '
        Me.btn8.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn8.Location = New System.Drawing.Point(315, 37)
        Me.btn8.Name = "btn8"
        Me.btn8.Size = New System.Drawing.Size(28, 23)
        Me.btn8.TabIndex = 8
        Me.btn8.Text = "8"
        Me.btn8.UseVisualStyleBackColor = False
        '
        'btn7
        '
        Me.btn7.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn7.Location = New System.Drawing.Point(281, 37)
        Me.btn7.Name = "btn7"
        Me.btn7.Size = New System.Drawing.Size(28, 23)
        Me.btn7.TabIndex = 7
        Me.btn7.Text = "7"
        Me.btn7.UseVisualStyleBackColor = False
        '
        'btn9
        '
        Me.btn9.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn9.Location = New System.Drawing.Point(349, 37)
        Me.btn9.Name = "btn9"
        Me.btn9.Size = New System.Drawing.Size(28, 23)
        Me.btn9.TabIndex = 9
        Me.btn9.Text = "9"
        Me.btn9.UseVisualStyleBackColor = False
        '
        'btn10
        '
        Me.btn10.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn10.Location = New System.Drawing.Point(383, 37)
        Me.btn10.Name = "btn10"
        Me.btn10.Size = New System.Drawing.Size(28, 23)
        Me.btn10.TabIndex = 10
        Me.btn10.Text = "10"
        Me.btn10.UseVisualStyleBackColor = False
        '
        'btn11
        '
        Me.btn11.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn11.Location = New System.Drawing.Point(417, 37)
        Me.btn11.Name = "btn11"
        Me.btn11.Size = New System.Drawing.Size(28, 23)
        Me.btn11.TabIndex = 11
        Me.btn11.Text = "11"
        Me.btn11.UseVisualStyleBackColor = False
        '
        'btn12
        '
        Me.btn12.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn12.Location = New System.Drawing.Point(451, 37)
        Me.btn12.Name = "btn12"
        Me.btn12.Size = New System.Drawing.Size(28, 23)
        Me.btn12.TabIndex = 12
        Me.btn12.Text = "12"
        Me.btn12.UseVisualStyleBackColor = False
        '
        'btn16
        '
        Me.btn16.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn16.Location = New System.Drawing.Point(111, 66)
        Me.btn16.Name = "btn16"
        Me.btn16.Size = New System.Drawing.Size(28, 23)
        Me.btn16.TabIndex = 16
        Me.btn16.Text = "16"
        Me.btn16.UseVisualStyleBackColor = False
        '
        'btn42
        '
        Me.btn42.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn42.Location = New System.Drawing.Point(519, 95)
        Me.btn42.Name = "btn42"
        Me.btn42.Size = New System.Drawing.Size(28, 23)
        Me.btn42.TabIndex = 42
        Me.btn42.Text = "42"
        Me.btn42.UseVisualStyleBackColor = False
        '
        'btn14
        '
        Me.btn14.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn14.Location = New System.Drawing.Point(519, 37)
        Me.btn14.Name = "btn14"
        Me.btn14.Size = New System.Drawing.Size(28, 23)
        Me.btn14.TabIndex = 14
        Me.btn14.Text = "14"
        Me.btn14.UseVisualStyleBackColor = False
        '
        'btn13
        '
        Me.btn13.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn13.Location = New System.Drawing.Point(485, 37)
        Me.btn13.Name = "btn13"
        Me.btn13.Size = New System.Drawing.Size(28, 23)
        Me.btn13.TabIndex = 13
        Me.btn13.Text = "13"
        Me.btn13.UseVisualStyleBackColor = False
        '
        'btn35
        '
        Me.btn35.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn35.Location = New System.Drawing.Point(281, 95)
        Me.btn35.Name = "btn35"
        Me.btn35.Size = New System.Drawing.Size(28, 23)
        Me.btn35.TabIndex = 35
        Me.btn35.Text = "35"
        Me.btn35.UseVisualStyleBackColor = False
        '
        'btn40
        '
        Me.btn40.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn40.Location = New System.Drawing.Point(451, 95)
        Me.btn40.Name = "btn40"
        Me.btn40.Size = New System.Drawing.Size(28, 23)
        Me.btn40.TabIndex = 40
        Me.btn40.Text = "40"
        Me.btn40.UseVisualStyleBackColor = False
        '
        'btn36
        '
        Me.btn36.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn36.Location = New System.Drawing.Point(315, 95)
        Me.btn36.Name = "btn36"
        Me.btn36.Size = New System.Drawing.Size(28, 23)
        Me.btn36.TabIndex = 36
        Me.btn36.Text = "36"
        Me.btn36.UseVisualStyleBackColor = False
        '
        'btn15
        '
        Me.btn15.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn15.Location = New System.Drawing.Point(77, 66)
        Me.btn15.Name = "btn15"
        Me.btn15.Size = New System.Drawing.Size(28, 23)
        Me.btn15.TabIndex = 15
        Me.btn15.Text = "15"
        Me.btn15.UseVisualStyleBackColor = False
        '
        'btn17
        '
        Me.btn17.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn17.Location = New System.Drawing.Point(145, 66)
        Me.btn17.Name = "btn17"
        Me.btn17.Size = New System.Drawing.Size(28, 23)
        Me.btn17.TabIndex = 17
        Me.btn17.Text = "17"
        Me.btn17.UseVisualStyleBackColor = False
        '
        'btn21
        '
        Me.btn21.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn21.Location = New System.Drawing.Point(281, 66)
        Me.btn21.Name = "btn21"
        Me.btn21.Size = New System.Drawing.Size(28, 23)
        Me.btn21.TabIndex = 21
        Me.btn21.Text = "21"
        Me.btn21.UseVisualStyleBackColor = False
        '
        'btn22
        '
        Me.btn22.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn22.Location = New System.Drawing.Point(315, 66)
        Me.btn22.Name = "btn22"
        Me.btn22.Size = New System.Drawing.Size(28, 23)
        Me.btn22.TabIndex = 22
        Me.btn22.Text = "22"
        Me.btn22.UseVisualStyleBackColor = False
        '
        'btn19
        '
        Me.btn19.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn19.Location = New System.Drawing.Point(213, 66)
        Me.btn19.Name = "btn19"
        Me.btn19.Size = New System.Drawing.Size(28, 23)
        Me.btn19.TabIndex = 19
        Me.btn19.Text = "19"
        Me.btn19.UseVisualStyleBackColor = False
        '
        'btn18
        '
        Me.btn18.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn18.Location = New System.Drawing.Point(179, 66)
        Me.btn18.Name = "btn18"
        Me.btn18.Size = New System.Drawing.Size(28, 23)
        Me.btn18.TabIndex = 18
        Me.btn18.Text = "18"
        Me.btn18.UseVisualStyleBackColor = False
        '
        'btn20
        '
        Me.btn20.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn20.Location = New System.Drawing.Point(247, 66)
        Me.btn20.Name = "btn20"
        Me.btn20.Size = New System.Drawing.Size(28, 23)
        Me.btn20.TabIndex = 20
        Me.btn20.Text = "20"
        Me.btn20.UseVisualStyleBackColor = False
        '
        'btn23
        '
        Me.btn23.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn23.Location = New System.Drawing.Point(349, 66)
        Me.btn23.Name = "btn23"
        Me.btn23.Size = New System.Drawing.Size(28, 23)
        Me.btn23.TabIndex = 23
        Me.btn23.Text = "23"
        Me.btn23.UseVisualStyleBackColor = False
        '
        'btn38
        '
        Me.btn38.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn38.Location = New System.Drawing.Point(383, 95)
        Me.btn38.Name = "btn38"
        Me.btn38.Size = New System.Drawing.Size(28, 23)
        Me.btn38.TabIndex = 38
        Me.btn38.Text = "38"
        Me.btn38.UseVisualStyleBackColor = False
        '
        'btn37
        '
        Me.btn37.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn37.Location = New System.Drawing.Point(349, 95)
        Me.btn37.Name = "btn37"
        Me.btn37.Size = New System.Drawing.Size(28, 23)
        Me.btn37.TabIndex = 37
        Me.btn37.Text = "37"
        Me.btn37.UseVisualStyleBackColor = False
        '
        'btn41
        '
        Me.btn41.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn41.Location = New System.Drawing.Point(485, 95)
        Me.btn41.Name = "btn41"
        Me.btn41.Size = New System.Drawing.Size(28, 23)
        Me.btn41.TabIndex = 41
        Me.btn41.Text = "41"
        Me.btn41.UseVisualStyleBackColor = False
        '
        'btn28
        '
        Me.btn28.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn28.Location = New System.Drawing.Point(519, 66)
        Me.btn28.Name = "btn28"
        Me.btn28.Size = New System.Drawing.Size(28, 23)
        Me.btn28.TabIndex = 28
        Me.btn28.Text = "28"
        Me.btn28.UseVisualStyleBackColor = False
        '
        'btn27
        '
        Me.btn27.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn27.Location = New System.Drawing.Point(485, 66)
        Me.btn27.Name = "btn27"
        Me.btn27.Size = New System.Drawing.Size(28, 23)
        Me.btn27.TabIndex = 27
        Me.btn27.Text = "27"
        Me.btn27.UseVisualStyleBackColor = False
        '
        'btn26
        '
        Me.btn26.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn26.Location = New System.Drawing.Point(451, 66)
        Me.btn26.Name = "btn26"
        Me.btn26.Size = New System.Drawing.Size(28, 23)
        Me.btn26.TabIndex = 26
        Me.btn26.Text = "26"
        Me.btn26.UseVisualStyleBackColor = False
        '
        'btn25
        '
        Me.btn25.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn25.Location = New System.Drawing.Point(417, 66)
        Me.btn25.Name = "btn25"
        Me.btn25.Size = New System.Drawing.Size(28, 23)
        Me.btn25.TabIndex = 25
        Me.btn25.Text = "25"
        Me.btn25.UseVisualStyleBackColor = False
        '
        'btn24
        '
        Me.btn24.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn24.Location = New System.Drawing.Point(383, 66)
        Me.btn24.Name = "btn24"
        Me.btn24.Size = New System.Drawing.Size(28, 23)
        Me.btn24.TabIndex = 24
        Me.btn24.Text = "24"
        Me.btn24.UseVisualStyleBackColor = False
        '
        'btn39
        '
        Me.btn39.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn39.Location = New System.Drawing.Point(417, 95)
        Me.btn39.Name = "btn39"
        Me.btn39.Size = New System.Drawing.Size(28, 23)
        Me.btn39.TabIndex = 39
        Me.btn39.Text = "39"
        Me.btn39.UseVisualStyleBackColor = False
        '
        'btn34
        '
        Me.btn34.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn34.Location = New System.Drawing.Point(247, 95)
        Me.btn34.Name = "btn34"
        Me.btn34.Size = New System.Drawing.Size(28, 23)
        Me.btn34.TabIndex = 34
        Me.btn34.Text = "34"
        Me.btn34.UseVisualStyleBackColor = False
        '
        'btn33
        '
        Me.btn33.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn33.Location = New System.Drawing.Point(213, 95)
        Me.btn33.Name = "btn33"
        Me.btn33.Size = New System.Drawing.Size(28, 23)
        Me.btn33.TabIndex = 33
        Me.btn33.Text = "33"
        Me.btn33.UseVisualStyleBackColor = False
        '
        'btn32
        '
        Me.btn32.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn32.Location = New System.Drawing.Point(179, 95)
        Me.btn32.Name = "btn32"
        Me.btn32.Size = New System.Drawing.Size(28, 23)
        Me.btn32.TabIndex = 32
        Me.btn32.Text = "32"
        Me.btn32.UseVisualStyleBackColor = False
        '
        'btn31
        '
        Me.btn31.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn31.Location = New System.Drawing.Point(145, 95)
        Me.btn31.Name = "btn31"
        Me.btn31.Size = New System.Drawing.Size(28, 23)
        Me.btn31.TabIndex = 31
        Me.btn31.Text = "31"
        Me.btn31.UseVisualStyleBackColor = False
        '
        'btn30
        '
        Me.btn30.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn30.Location = New System.Drawing.Point(111, 95)
        Me.btn30.Name = "btn30"
        Me.btn30.Size = New System.Drawing.Size(28, 23)
        Me.btn30.TabIndex = 30
        Me.btn30.Text = "30"
        Me.btn30.UseVisualStyleBackColor = False
        '
        'btn29
        '
        Me.btn29.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btn29.Location = New System.Drawing.Point(77, 95)
        Me.btn29.Name = "btn29"
        Me.btn29.Size = New System.Drawing.Size(28, 23)
        Me.btn29.TabIndex = 29
        Me.btn29.Text = "29"
        Me.btn29.UseVisualStyleBackColor = False
        '
        'GroupBox1
        '
        Me.GroupBox1.BackColor = System.Drawing.Color.DodgerBlue
        Me.GroupBox1.Controls.Add(Me.btnDisplay)
        Me.GroupBox1.Controls.Add(Me.btnSave)
        Me.GroupBox1.Controls.Add(Me.btnGenerateNumber)
        Me.GroupBox1.Controls.Add(Me.txtNb6)
        Me.GroupBox1.Controls.Add(Me.txtNb5)
        Me.GroupBox1.Controls.Add(Me.txtNb4)
        Me.GroupBox1.Controls.Add(Me.txtNb3)
        Me.GroupBox1.Controls.Add(Me.txtNb2)
        Me.GroupBox1.Controls.Add(Me.txtNb1)
        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(24, 408)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(280, 107)
        Me.GroupBox1.TabIndex = 43
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "LOTO Numbers"
        '
        'GroupBox2
        '
        Me.GroupBox2.BackColor = System.Drawing.Color.DodgerBlue
        Me.GroupBox2.Controls.Add(Me.btnCheck)
        Me.GroupBox2.Controls.Add(Me.btnSelectNbUser)
        Me.GroupBox2.Controls.Add(Me.btnGenerateNbUser)
        Me.GroupBox2.Controls.Add(Me.txtUserNb6)
        Me.GroupBox2.Controls.Add(Me.txtUserNb5)
        Me.GroupBox2.Controls.Add(Me.txtUserNb4)
        Me.GroupBox2.Controls.Add(Me.txtUserNb3)
        Me.GroupBox2.Controls.Add(Me.txtUserNb2)
        Me.GroupBox2.Controls.Add(Me.txtUserNb1)
        Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox2.Location = New System.Drawing.Point(315, 408)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(280, 107)
        Me.GroupBox2.TabIndex = 44
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Your Numbers"
        '
        'btnCheck
        '
        Me.btnCheck.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnCheck.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnCheck.Location = New System.Drawing.Point(111, 71)
        Me.btnCheck.Name = "btnCheck"
        Me.btnCheck.Size = New System.Drawing.Size(75, 23)
        Me.btnCheck.TabIndex = 10
        Me.btnCheck.Text = "&Check"
        Me.btnCheck.UseVisualStyleBackColor = False
        '
        'btnSelectNbUser
        '
        Me.btnSelectNbUser.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnSelectNbUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnSelectNbUser.Location = New System.Drawing.Point(191, 71)
        Me.btnSelectNbUser.Name = "btnSelectNbUser"
        Me.btnSelectNbUser.Size = New System.Drawing.Size(75, 23)
        Me.btnSelectNbUser.TabIndex = 9
        Me.btnSelectNbUser.Text = "Se&lect"
        Me.btnSelectNbUser.UseVisualStyleBackColor = False
        '
        'btnGenerateNbUser
        '
        Me.btnGenerateNbUser.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnGenerateNbUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnGenerateNbUser.Location = New System.Drawing.Point(31, 71)
        Me.btnGenerateNbUser.Name = "btnGenerateNbUser"
        Me.btnGenerateNbUser.Size = New System.Drawing.Size(75, 23)
        Me.btnGenerateNbUser.TabIndex = 6
        Me.btnGenerateNbUser.Text = "G&enerate"
        Me.btnGenerateNbUser.UseVisualStyleBackColor = False
        '
        'txtUserNb6
        '
        Me.txtUserNb6.BackColor = System.Drawing.Color.Black
        Me.txtUserNb6.Enabled = False
        Me.txtUserNb6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtUserNb6.ForeColor = System.Drawing.Color.White
        Me.txtUserNb6.Location = New System.Drawing.Point(231, 39)
        Me.txtUserNb6.MaxLength = 2
        Me.txtUserNb6.Name = "txtUserNb6"
        Me.txtUserNb6.Size = New System.Drawing.Size(32, 20)
        Me.txtUserNb6.TabIndex = 5
        Me.txtUserNb6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtUserNb5
        '
        Me.txtUserNb5.BackColor = System.Drawing.Color.Black
        Me.txtUserNb5.Enabled = False
        Me.txtUserNb5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtUserNb5.ForeColor = System.Drawing.Color.White
        Me.txtUserNb5.Location = New System.Drawing.Point(191, 39)
        Me.txtUserNb5.MaxLength = 2
        Me.txtUserNb5.Name = "txtUserNb5"
        Me.txtUserNb5.Size = New System.Drawing.Size(32, 20)
        Me.txtUserNb5.TabIndex = 4
        Me.txtUserNb5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtUserNb4
        '
        Me.txtUserNb4.BackColor = System.Drawing.Color.Black
        Me.txtUserNb4.Enabled = False
        Me.txtUserNb4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtUserNb4.ForeColor = System.Drawing.Color.White
        Me.txtUserNb4.Location = New System.Drawing.Point(151, 39)
        Me.txtUserNb4.MaxLength = 2
        Me.txtUserNb4.Name = "txtUserNb4"
        Me.txtUserNb4.Size = New System.Drawing.Size(32, 20)
        Me.txtUserNb4.TabIndex = 3
        Me.txtUserNb4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtUserNb3
        '
        Me.txtUserNb3.BackColor = System.Drawing.Color.Black
        Me.txtUserNb3.Enabled = False
        Me.txtUserNb3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtUserNb3.ForeColor = System.Drawing.Color.White
        Me.txtUserNb3.Location = New System.Drawing.Point(111, 39)
        Me.txtUserNb3.MaxLength = 2
        Me.txtUserNb3.Name = "txtUserNb3"
        Me.txtUserNb3.Size = New System.Drawing.Size(32, 20)
        Me.txtUserNb3.TabIndex = 2
        Me.txtUserNb3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtUserNb2
        '
        Me.txtUserNb2.BackColor = System.Drawing.Color.Black
        Me.txtUserNb2.Enabled = False
        Me.txtUserNb2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtUserNb2.ForeColor = System.Drawing.Color.White
        Me.txtUserNb2.Location = New System.Drawing.Point(71, 39)
        Me.txtUserNb2.MaxLength = 2
        Me.txtUserNb2.Name = "txtUserNb2"
        Me.txtUserNb2.Size = New System.Drawing.Size(32, 20)
        Me.txtUserNb2.TabIndex = 1
        Me.txtUserNb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtUserNb1
        '
        Me.txtUserNb1.BackColor = System.Drawing.Color.Black
        Me.txtUserNb1.Enabled = False
        Me.txtUserNb1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtUserNb1.ForeColor = System.Drawing.Color.White
        Me.txtUserNb1.Location = New System.Drawing.Point(31, 39)
        Me.txtUserNb1.MaxLength = 2
        Me.txtUserNb1.Name = "txtUserNb1"
        Me.txtUserNb1.Size = New System.Drawing.Size(32, 20)
        Me.txtUserNb1.TabIndex = 0
        Me.txtUserNb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'txtLOTONumbers
        '
        Me.txtLOTONumbers.BackColor = System.Drawing.Color.Black
        Me.txtLOTONumbers.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtLOTONumbers.ForeColor = System.Drawing.Color.Lime
        Me.txtLOTONumbers.Location = New System.Drawing.Point(601, 223)
        Me.txtLOTONumbers.Multiline = True
        Me.txtLOTONumbers.Name = "txtLOTONumbers"
        Me.txtLOTONumbers.ReadOnly = True
        Me.txtLOTONumbers.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtLOTONumbers.Size = New System.Drawing.Size(249, 251)
        Me.txtLOTONumbers.TabIndex = 46
        '
        'btnClear
        '
        Me.btnClear.BackColor = System.Drawing.SystemColors.ControlDark
        Me.btnClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnClear.Location = New System.Drawing.Point(651, 480)
        Me.btnClear.Name = "btnClear"
        Me.btnClear.Size = New System.Drawing.Size(141, 23)
        Me.btnClear.TabIndex = 12
        Me.btnClear.Text = "Clear"
        Me.btnClear.UseVisualStyleBackColor = False
        '
        'lblLOTONumbers
        '
        Me.lblLOTONumbers.AutoSize = True
        Me.lblLOTONumbers.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.lblLOTONumbers.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lblLOTONumbers.Font = New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblLOTONumbers.ForeColor = System.Drawing.Color.Black
        Me.lblLOTONumbers.Location = New System.Drawing.Point(655, 200)
        Me.lblLOTONumbers.Name = "lblLOTONumbers"
        Me.lblLOTONumbers.Size = New System.Drawing.Size(123, 20)
        Me.lblLOTONumbers.TabIndex = 47
        Me.lblLOTONumbers.Text = "LOTO Numbers"
        '
        'MainForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.Moccasin
        Me.ClientSize = New System.Drawing.Size(862, 541)
        Me.ControlBox = False
        Me.Controls.Add(Me.lblLOTONumbers)
        Me.Controls.Add(Me.btnClear)
        Me.Controls.Add(Me.txtLOTONumbers)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.btn29)
        Me.Controls.Add(Me.btn30)
        Me.Controls.Add(Me.btn31)
        Me.Controls.Add(Me.btn32)
        Me.Controls.Add(Me.btn33)
        Me.Controls.Add(Me.btn34)
        Me.Controls.Add(Me.btn39)
        Me.Controls.Add(Me.btn24)
        Me.Controls.Add(Me.btn25)
        Me.Controls.Add(Me.btn26)
        Me.Controls.Add(Me.btn27)
        Me.Controls.Add(Me.btn28)
        Me.Controls.Add(Me.btn41)
        Me.Controls.Add(Me.btn37)
        Me.Controls.Add(Me.btn38)
        Me.Controls.Add(Me.btn23)
        Me.Controls.Add(Me.btn20)
        Me.Controls.Add(Me.btn18)
        Me.Controls.Add(Me.btn19)
        Me.Controls.Add(Me.btn22)
        Me.Controls.Add(Me.btn21)
        Me.Controls.Add(Me.btn17)
        Me.Controls.Add(Me.btn15)
        Me.Controls.Add(Me.btn36)
        Me.Controls.Add(Me.btn40)
        Me.Controls.Add(Me.btn35)
        Me.Controls.Add(Me.btn13)
        Me.Controls.Add(Me.btn14)
        Me.Controls.Add(Me.btn42)
        Me.Controls.Add(Me.btn16)
        Me.Controls.Add(Me.btn12)
        Me.Controls.Add(Me.btn11)
        Me.Controls.Add(Me.btn10)
        Me.Controls.Add(Me.btn9)
        Me.Controls.Add(Me.btn7)
        Me.Controls.Add(Me.btn8)
        Me.Controls.Add(Me.btn6)
        Me.Controls.Add(Me.btn4)
        Me.Controls.Add(Me.btn5)
        Me.Controls.Add(Me.btn3)
        Me.Controls.Add(Me.btn2)
        Me.Controls.Add(Me.btn1)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.MenuStrip1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MainMenuStrip = Me.MenuStrip1
        Me.Name = "MainForm"
        Me.Text = "LOTO-Game"
        Me.MenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.PerformLayout()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub MainForm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Application.Exit()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
    End Sub

    Private Sub btnGenerateNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerateNumber.Click
        Call txtUserBackColor()
        Call ClearTxts()
        Call BtnLocation()
        Call ChangeBtnColor()
        Call GetRndNB()
        Me.txtLOTONumbers.Text = s
    End Sub

    Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If MessageBox.Show("Do you want to EXIT ?", "Bye Bye ??", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        Select Case ComboBox1.SelectedItem
            Case Me.ComboBox1.SelectedItem
                If MessageBox.Show("Choosing Color:" & " " & Me.ComboBox1.SelectedItem & " " & "?", "Background Color", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                    Me.BackColor = Color.FromName(Me.ComboBox1.SelectedItem)
                End If
        End Select
    End Sub
    Private Sub SaveNB()
        Dim FILE_NAME As String = "C:\Documents and Settings\Abed\Desktop\LOTO-Game\RandomNB.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
            objWriter.Write(s)
            objWriter.Close()
            MessageBox.Show("Round(s) written to file", "Data Transfered", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("File Does Not Exist", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub


    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If MessageBox.Show("Save Round(s) Numbers?", "Saving", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call SaveNB()
        End If
    End Sub


    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        Dim FILE_NAME As String = "C:\Documents and Settings\Abed\Desktop\LOTO-Game\RandomNB.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objReader As New System.IO.StreamReader(FILE_NAME)
            MessageBox.Show(objReader.ReadToEnd, "Numbers Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
            objReader.Close()
        Else
            MessageBox.Show("File Does Not Exist", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub mnuExit_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
        If MessageBox.Show("Do you want to EXIT ? ", "Bye Bye ?? ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub

    Private Sub mnuAbout_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAbout.Click
        MessageBox.Show("Lebanon-Beirut" & vbNewLine _
        & "Tarik Al Jadida" & vbNewLine _
              & "E-mail: SAK-lb@hotmail.com", "SAK-Developer")
    End Sub
    Public Sub BtnLocation()
        Dim r As New Random
        For i As Integer = 0 To 3
            'initial Position
            Me.btn1.Location = New Point(77, 37)
            Me.btn2.Location = New Point(111, 37)
            Me.btn3.Location = New Point(145, 37)
            Me.btn4.Location = New Point(179, 37)
            Me.btn5.Location = New Point(213, 37)
            Me.btn6.Location = New Point(247, 37)
            Me.btn7.Location = New Point(281, 37)
            Me.btn8.Location = New Point(315, 37)
            Me.btn9.Location = New Point(349, 37)
            Me.btn10.Location = New Point(383, 37)
            Me.btn11.Location = New Point(417, 37)
            Me.btn12.Location = New Point(451, 37)
            Me.btn13.Location = New Point(485, 37)
            Me.btn14.Location = New Point(519, 37)
            Me.btn15.Location = New Point(77, 66)
            Me.btn16.Location = New Point(111, 66)
            Me.btn17.Location = New Point(145, 66)
            Me.btn18.Location = New Point(179, 66)
            Me.btn19.Location = New Point(213, 66)
            Me.btn20.Location = New Point(247, 66)
            Me.btn21.Location = New Point(281, 66)
            Me.btn22.Location = New Point(315, 66)
            Me.btn23.Location = New Point(349, 66)
            Me.btn24.Location = New Point(383, 66)
            Me.btn25.Location = New Point(417, 66)
            Me.btn26.Location = New Point(451, 66)
            Me.btn27.Location = New Point(485, 66)
            Me.btn28.Location = New Point(519, 66)
            Me.btn29.Location = New Point(77, 95)
            Me.btn30.Location = New Point(111, 95)
            Me.btn31.Location = New Point(145, 95)
            Me.btn32.Location = New Point(179, 95)
            Me.btn33.Location = New Point(213, 95)
            Me.btn34.Location = New Point(247, 95)
            Me.btn35.Location = New Point(281, 95)
            Me.btn36.Location = New Point(315, 95)
            Me.btn37.Location = New Point(349, 95)
            Me.btn38.Location = New Point(383, 95)
            Me.btn39.Location = New Point(417, 95)
            Me.btn40.Location = New Point(451, 95)
            Me.btn41.Location = New Point(485, 95)
            Me.btn42.Location = New Point(519, 95)
            'Random Position
            Me.btn1.Location = New Point(r.Next(1, 610), r.Next(24, 360))
            Me.btn2.Location = New Point(r.Next(2, 610), r.Next(24, 360))
            Me.btn3.Location = New Point(r.Next(3, 610), r.Next(24, 360))
            Me.btn4.Location = New Point(r.Next(4, 610), r.Next(24, 360))
            Me.btn5.Location = New Point(r.Next(5, 610), r.Next(24, 360))
            Me.btn6.Location = New Point(r.Next(6, 610), r.Next(24, 360))
            Me.btn7.Location = New Point(r.Next(7, 610), r.Next(24, 360))
            Me.btn8.Location = New Point(r.Next(13, 610), r.Next(24, 360))
            Me.btn9.Location = New Point(r.Next(76, 610), r.Next(24, 360))
            Me.btn10.Location = New Point(r.Next(12, 610), r.Next(24, 360))
            Me.btn11.Location = New Point(r.Next(44, 610), r.Next(24, 360))
            Me.btn12.Location = New Point(r.Next(12, 610), r.Next(24, 360))
            Me.btn13.Location = New Point(r.Next(45, 610), r.Next(24, 360))
            Me.btn14.Location = New Point(r.Next(16, 610), r.Next(24, 360))
            Me.btn15.Location = New Point(r.Next(19, 610), r.Next(24, 360))
            Me.btn16.Location = New Point(r.Next(22, 610), r.Next(24, 360))
            Me.btn17.Location = New Point(r.Next(21, 610), r.Next(24, 360))
            Me.btn18.Location = New Point(r.Next(234, 610), r.Next(24, 360))
            Me.btn19.Location = New Point(r.Next(234, 610), r.Next(24, 360))
            Me.btn20.Location = New Point(r.Next(32, 610), r.Next(24, 360))
            Me.btn21.Location = New Point(r.Next(456, 610), r.Next(24, 360))
            Me.btn22.Location = New Point(r.Next(212, 610), r.Next(24, 360))
            Me.btn23.Location = New Point(r.Next(121, 610), r.Next(24, 360))
            Me.btn24.Location = New Point(r.Next(32, 610), r.Next(24, 360))
            Me.btn25.Location = New Point(r.Next(87, 610), r.Next(24, 360))
            Me.btn26.Location = New Point(r.Next(99, 610), r.Next(24, 360))
            Me.btn27.Location = New Point(r.Next(66, 610), r.Next(24, 360))
            Me.btn28.Location = New Point(r.Next(54, 610), r.Next(24, 360))
            Me.btn29.Location = New Point(r.Next(345, 610), r.Next(24, 360))
            Me.btn30.Location = New Point(r.Next(121, 610), r.Next(24, 360))
            Me.btn31.Location = New Point(r.Next(221, 610), r.Next(24, 360))
            Me.btn32.Location = New Point(r.Next(331, 610), r.Next(24, 360))
            Me.btn33.Location = New Point(r.Next(11, 610), r.Next(24, 360))
            Me.btn34.Location = New Point(r.Next(22, 610), r.Next(24, 360))
            Me.btn35.Location = New Point(r.Next(345, 610), r.Next(24, 360))
            Me.btn36.Location = New Point(r.Next(345, 610), r.Next(24, 360))
            Me.btn37.Location = New Point(r.Next(45, 610), r.Next(24, 360))
            Me.btn38.Location = New Point(r.Next(345, 610), r.Next(24, 360))
            Me.btn39.Location = New Point(r.Next(211, 610), r.Next(24, 360))
            Me.btn40.Location = New Point(r.Next(234, 610), r.Next(24, 360))
            Me.btn41.Location = New Point(r.Next(54, 610), r.Next(24, 360))
            Me.btn42.Location = New Point(r.Next(542, 610), r.Next(24, 360))
            'LOTO Position
            Me.btn2.Location = New Point(24, 55)
            Me.btn3.Location = New Point(24, 84)
            Me.btn4.Location = New Point(24, 111)
            Me.btn5.Location = New Point(24, 140)
            Me.btn6.Location = New Point(24, 169)
            Me.btn7.Location = New Point(24, 198)
            Me.btn8.Location = New Point(60, 198)
            Me.btn9.Location = New Point(96, 198)
            Me.btn10.Location = New Point(132, 198)
            Me.btn11.Location = New Point(181, 198)
            Me.btn12.Location = New Point(181, 169)
            Me.btn13.Location = New Point(181, 140)
            Me.btn14.Location = New Point(181, 111)
            Me.btn15.Location = New Point(217, 111)
            Me.btn16.Location = New Point(253, 111)
            Me.btn17.Location = New Point(253, 140)
            Me.btn18.Location = New Point(253, 169)
            Me.btn19.Location = New Point(253, 198)
            Me.btn20.Location = New Point(217, 198)
            Me.btn21.Location = New Point(361, 198)
            Me.btn22.Location = New Point(361, 169)
            Me.btn23.Location = New Point(361, 140)
            Me.btn24.Location = New Point(361, 111)
            Me.btn25.Location = New Point(361, 81)
            Me.btn26.Location = New Point(361, 55)
            Me.btn27.Location = New Point(361, 26)
            Me.btn28.Location = New Point(325, 26)
            Me.btn29.Location = New Point(397, 26)
            Me.btn30.Location = New Point(289, 24)
            Me.btn31.Location = New Point(433, 26)
            Me.btn32.Location = New Point(253, 24)
            Me.btn33.Location = New Point(469, 26)
            Me.btn34.Location = New Point(469, 198)
            Me.btn35.Location = New Point(469, 169)
            Me.btn36.Location = New Point(469, 140)
            Me.btn37.Location = New Point(469, 111)
            Me.btn38.Location = New Point(505, 111)
            Me.btn39.Location = New Point(541, 111)
            Me.btn40.Location = New Point(541, 140)
            Me.btn41.Location = New Point(541, 169)
            Me.btn42.Location = New Point(541, 198)
            Me.btn1.Location = New Point(505, 198)
        Next

    End Sub

    Private Sub ClearTxts()
        Me.txtNb1.Text = ""
        Me.txtNb2.Text = ""
        Me.txtNb3.Text = ""
        Me.txtNb4.Text = ""
        Me.txtNb5.Text = ""
        Me.txtNb6.Text = ""
    End Sub
    Private Sub ChangeBtnColor()
        Dim r1, g, b As Integer
        r1 = CInt(Int((255 - 0 + 1) * Rnd() + 0))
        g = CInt(Int((255 - 0 + 1) * Rnd() + 0))
        b = CInt(Int((255 - 0 + 1) * Rnd() + 0))
        Me.btn1.BackColor = Color.FromArgb(r1, g, b)
        Me.btn2.BackColor = Color.FromArgb(r1, g, b)
        Me.btn3.BackColor = Color.FromArgb(r1, g, b)
        Me.btn4.BackColor = Color.FromArgb(r1, g, b)
        Me.btn5.BackColor = Color.FromArgb(r1, g, b)
        Me.btn6.BackColor = Color.FromArgb(r1, g, b)
        Me.btn7.BackColor = Color.FromArgb(r1, g, b)
        Me.btn8.BackColor = Color.FromArgb(r1, g, b)
        Me.btn9.BackColor = Color.FromArgb(r1, g, b)
        Me.btn10.BackColor = Color.FromArgb(r1, g, b)
        Me.btn11.BackColor = Color.FromArgb(r1, g, b)
        Me.btn12.BackColor = Color.FromArgb(r1, g, b)
        Me.btn13.BackColor = Color.FromArgb(r1, g, b)
        Me.btn14.BackColor = Color.FromArgb(r1, g, b)
        Me.btn15.BackColor = Color.FromArgb(r1, g, b)
        Me.btn16.BackColor = Color.FromArgb(r1, g, b)
        Me.btn17.BackColor = Color.FromArgb(r1, g, b)
        Me.btn18.BackColor = Color.FromArgb(r1, g, b)
        Me.btn19.BackColor = Color.FromArgb(r1, g, b)
        Me.btn20.BackColor = Color.FromArgb(r1, g, b)
        Me.btn21.BackColor = Color.FromArgb(r1, g, b)
        Me.btn22.BackColor = Color.FromArgb(r1, g, b)
        Me.btn23.BackColor = Color.FromArgb(r1, g, b)
        Me.btn24.BackColor = Color.FromArgb(r1, g, b)
        Me.btn25.BackColor = Color.FromArgb(r1, g, b)
        Me.btn26.BackColor = Color.FromArgb(r1, g, b)
        Me.btn27.BackColor = Color.FromArgb(r1, g, b)
        Me.btn28.BackColor = Color.FromArgb(r1, g, b)
        Me.btn29.BackColor = Color.FromArgb(r1, g, b)
        Me.btn30.BackColor = Color.FromArgb(r1, g, b)
        Me.btn31.BackColor = Color.FromArgb(r1, g, b)
        Me.btn32.BackColor = Color.FromArgb(r1, g, b)
        Me.btn33.BackColor = Color.FromArgb(r1, g, b)
        Me.btn34.BackColor = Color.FromArgb(r1, g, b)
        Me.btn35.BackColor = Color.FromArgb(r1, g, b)
        Me.btn36.BackColor = Color.FromArgb(r1, g, b)
        Me.btn37.BackColor = Color.FromArgb(r1, g, b)
        Me.btn38.BackColor = Color.FromArgb(r1, g, b)
        Me.btn39.BackColor = Color.FromArgb(r1, g, b)
        Me.btn40.BackColor = Color.FromArgb(r1, g, b)
        Me.btn41.BackColor = Color.FromArgb(r1, g, b)
        Me.btn42.BackColor = Color.FromArgb(r1, g, b)
    End Sub
    Private Sub GetRndNB()
        Dim tab(5) As Integer
        Dim r As New Random

        'Get 6 unique random numbers
        For i As Integer = 0 To tab.Length - 1
            tab(i) = r.Next(1, 43)
line1:      For j As Integer = 0 To tab.Length - 1
                If Not i = j Then
                    If tab(i) = tab(j) Then
                        Do
                            tab(i) = r.Next(1, 43)
                            GoTo line1
                        Loop While tab(i) = tab(j)
                    End If
                End If
            Next
        Next
        For i As Integer = 0 To tab.Length - 1
            temp &= tab(i) & " " & "/" & " "
        Next
        Cmp = temp
        s &= "Round (" & k & ")" & ":" & "  " & temp & vbNewLine
        k = k + 1
        Me.txtNb1.Text = tab(0)
        Me.txtNb2.Text = tab(1)
        Me.txtNb3.Text = tab(2)
        Me.txtNb4.Text = tab(3)
        Me.txtNb5.Text = tab(4)
        Me.txtNb6.Text = tab(5)
        temp = ""
    End Sub

    Private Sub btnSelectNbUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectNbUser.Click
        If Me.txtNb1.Text <> "" Then
            MessageBox.Show("Please clear all LOTO numbers by click on 'Clear button' then select your numbers", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        Call txtUserBackColor()
        Me.txtUserNb1.Enabled = True
        Me.txtUserNb2.Enabled = True
        Me.txtUserNb3.Enabled = True
        Me.txtUserNb4.Enabled = True
        Me.txtUserNb5.Enabled = True
        Me.txtUserNb6.Enabled = True

        Me.txtUserNb1.Text = ""
        Me.txtUserNb2.Text = ""
        Me.txtUserNb3.Text = ""
        Me.txtUserNb4.Text = ""
        Me.txtUserNb5.Text = ""
        Me.txtUserNb6.Text = ""
        Me.txtUserNb1.Focus()
    End Sub

    Private Sub btnGenerateNbUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerateNbUser.Click
        Call txtUserBackColor()
        Dim tab(5) As Integer
        Dim r As New Random

        'Get 6 unique random numbers
        For i As Integer = 0 To tab.Length - 1
            tab(i) = r.Next(1, 43)
line1:      For j As Integer = 0 To tab.Length - 1
                If Not i = j Then
                    If tab(i) = tab(j) Then
                        Do
                            tab(i) = r.Next(1, 43)
                            GoTo line1
                        Loop While tab(i) = tab(j)
                    End If
                End If
            Next
        Next

        Me.txtUserNb1.Text = tab(0)
        Me.txtUserNb2.Text = tab(1)
        Me.txtUserNb3.Text = tab(2)
        Me.txtUserNb4.Text = tab(3)
        Me.txtUserNb5.Text = tab(4)
        Me.txtUserNb6.Text = tab(5)
    End Sub
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        k = 0
        s = ""
        Me.txtLOTONumbers.Text = ""
        Call ClearTxts()
        Dim FILE_NAME As String = "D:\HAMADA\MCSD\VB.NET\MyProjects\VB2559_G004--Ahmad KRONFOL\RandomNB.txt"
        Dim ClearString As String = ""
        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
            objWriter.Write(ClearString)
            objWriter.Close()
            MessageBox.Show("Round(s) Erased From File", "Data Erased", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        If Me.txtUserNb1.Text = "" And Me.txtUserNb2.Text = "" And Me.txtUserNb3.Text = "" And Me.txtUserNb4.Text = "" And Me.txtUserNb5.Text = "" And Me.txtUserNb6.Text = "" Then
            MessageBox.Show("Generate Your LOTO Numbers Or You Can Select them", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        End If
        Dim c(5) As Boolean
        If Not IsNumeric(Me.txtUserNb1.Text) Then
            MessageBox.Show("Put a number here please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb1.SelectAll()
            Me.txtUserNb1.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Not IsNumeric(Me.txtUserNb2.Text) Then
            MessageBox.Show("Put a number here please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb2.SelectAll()
            Me.txtUserNb2.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Not IsNumeric(Me.txtUserNb3.Text) Then
            MessageBox.Show("Put a number here please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb3.SelectAll()
            Me.txtUserNb3.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Not IsNumeric(Me.txtUserNb4.Text) Then
            MessageBox.Show("Put a number here please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb4.SelectAll()
            Me.txtUserNb4.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Not IsNumeric(Me.txtUserNb5.Text) Then
            MessageBox.Show("Put a number here please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb5.SelectAll()
            Me.txtUserNb5.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Not IsNumeric(Me.txtUserNb6.Text) Then
            MessageBox.Show("Put a number here please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb6.SelectAll()
            Me.txtUserNb6.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Me.txtUserNb1.Text > 42 Or Me.txtUserNb1.Text < 1 Then
            MessageBox.Show("Enter a number > 0 and < 43 in your first number please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb1.SelectAll()
            Me.txtUserNb1.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Me.txtUserNb2.Text > 42 Or Me.txtUserNb2.Text < 1 Then
            MessageBox.Show("Enter a number > 0 and < 43 in your second number please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb2.SelectAll()
            Me.txtUserNb2.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Me.txtUserNb3.Text > 42 Or Me.txtUserNb3.Text < 1 Then
            MessageBox.Show("Enter a number > 0 and < 43 in your third number please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb3.SelectAll()
            Me.txtUserNb3.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Me.txtUserNb4.Text > 42 Or Me.txtUserNb4.Text < 1 Then
            MessageBox.Show("Enter a number > 0 and < 43 in your fourth number please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb4.SelectAll()
            Me.txtUserNb4.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Me.txtUserNb5.Text > 42 Or Me.txtUserNb5.Text < 1 Then
            MessageBox.Show("Enter a number > 0 and < 43 in your fifth number please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb5.SelectAll()
            Me.txtUserNb5.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        If Me.txtUserNb6.Text > 42 Or Me.txtUserNb6.Text < 1 Then
            MessageBox.Show("Enter a number > 0 and < 43 in your sixth number please", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.txtUserNb6.SelectAll()
            Me.txtUserNb6.Focus()
            Call ClearTxts()
            Me.txtLOTONumbers.Text = ""
            Exit Sub
        End If
        Dim t(5) As TextBox
        t(0) = Me.txtUserNb1
        t(1) = Me.txtUserNb2
        t(2) = Me.txtUserNb3
        t(3) = Me.txtUserNb4
        t(4) = Me.txtUserNb5
        t(5) = Me.txtUserNb6

        For i As Integer = 0 To t.Length - 1
            For j As Integer = 0 To t.Length - 1
                If Not i = j Then
                    If t(i).Text = t(j).Text Then
                        MessageBox.Show(t(i).Text & " " & "Exist more than once so" & vbNewLine & "Please change your number at (#)" & " " & i + 1, "No Repeated Number(s)", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        t(i).SelectAll()
                        t(i).Focus()
                        Exit Sub
                    End If
                End If
            Next
        Next
        If Me.txtNb1.Text = "" Then
            MessageBox.Show("Generate LOTO numbers please then press check button", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        Dim tab(5) As Integer
        tab(0) = Me.txtNb1.Text
        tab(1) = Me.txtNb2.Text
        tab(2) = Me.txtNb3.Text
        tab(3) = Me.txtNb4.Text
        tab(4) = Me.txtNb5.Text
        tab(5) = Me.txtNb6.Text
        For i As Integer = 0 To tab.Length - 1
            If Me.txtUserNb1.Text = tab(i) Then
                c(0) = True
                Me.txtUserNb1.BackColor = Color.Red
            End If
            If Me.txtUserNb2.Text = tab(i) Then
                c(1) = True
                Me.txtUserNb2.BackColor = Color.Red
            End If
            If Me.txtUserNb3.Text = tab(i) Then
                c(2) = True
                Me.txtUserNb3.BackColor = Color.Red
            End If
            If Me.txtUserNb4.Text = tab(i) Then
                c(3) = True
                Me.txtUserNb4.BackColor = Color.Red
            End If
            If Me.txtUserNb5.Text = tab(i) Then
                c(4) = True
                Me.txtUserNb5.BackColor = Color.Red
            End If
            If Me.txtUserNb6.Text = tab(i) Then
                c(5) = True
                Me.txtUserNb6.BackColor = Color.Red
            End If
        Next
        Dim result As String
        If c(0) = True Then
            result &= "Your first" & " " & "number" & " " & Me.txtUserNb1.Text & " " & "is a winner number" & vbNewLine
        End If
        If c(1) = True Then
            result &= "Your second" & " " & "number" & " " & Me.txtUserNb2.Text & " " & "is a winner number" & vbNewLine
        End If
        If c(2) = True Then
            result &= "Your third" & " " & "number" & " " & Me.txtUserNb3.Text & " " & "is a winner number" & vbNewLine
        End If
        If c(3) = True Then
            result &= "Your fourth" & " " & "number" & " " & Me.txtUserNb4.Text & " " & "is a winner number" & vbNewLine
        End If
        If c(4) = True Then
            result &= "Your fifth" & " " & "number" & " " & Me.txtUserNb5.Text & " " & "is a winner number" & vbNewLine
        End If
        If c(5) = True Then
            result &= "Your sixth" & " " & "number" & " " & Me.txtUserNb6.Text & " " & "is a winner number" & vbNewLine
        End If
        If result = "" Then
            MessageBox.Show("You Loose :-(", "Ooops !!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else : MessageBox.Show(result, "Youppi !!", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        For i As Integer = 0 To t.Length - 1
            t(i).Enabled = False
        Next
    End Sub
    Private Sub txtUserBackColor()
        Me.txtUserNb1.BackColor = Color.Black
        Me.txtUserNb2.BackColor = Color.Black
        Me.txtUserNb3.BackColor = Color.Black
        Me.txtUserNb4.BackColor = Color.Black
        Me.txtUserNb5.BackColor = Color.Black
        Me.txtUserNb6.BackColor = Color.Black
    End Sub

End Class

Project Homepage: