| 1 | <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _\r |
| 2 | Partial Class Blackjack\r |
| 3 | Inherits System.Windows.Forms.Form\r |
| 4 | \r |
| 5 | 'Form overrides dispose to clean up the component list.\r |
| 6 | <System.Diagnostics.DebuggerNonUserCode()> _\r |
| 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean)\r |
| 8 | Try\r |
| 9 | If disposing AndAlso components IsNot Nothing Then\r |
| 10 | components.Dispose()\r |
| 11 | End If\r |
| 12 | Finally\r |
| 13 | MyBase.Dispose(disposing)\r |
| 14 | End Try\r |
| 15 | End Sub\r |
| 16 | \r |
| 17 | 'Required by the Windows Form Designer\r |
| 18 | Private components As System.ComponentModel.IContainer\r |
| 19 | \r |
| 20 | 'NOTE: The following procedure is required by the Windows Form Designer\r |
| 21 | 'It can be modified using the Windows Form Designer. \r |
| 22 | 'Do not modify it using the code editor.\r |
| 23 | <System.Diagnostics.DebuggerStepThrough()> _\r |
| 24 | Private Sub InitializeComponent()\r |
| 25 | Me.CmdHit = New System.Windows.Forms.Button()\r |
| 26 | Me.CmdDeal = New System.Windows.Forms.Button()\r |
| 27 | Me.CmdSplit = New System.Windows.Forms.Button()\r |
| 28 | Me.CmdDoubleDown = New System.Windows.Forms.Button()\r |
| 29 | Me.CmdStand = New System.Windows.Forms.Button()\r |
| 30 | Me.TxtTotal = New System.Windows.Forms.TextBox()\r |
| 31 | Me.LblTotal = New System.Windows.Forms.Label()\r |
| 32 | Me.LblBet = New System.Windows.Forms.Label()\r |
| 33 | Me.TxtBet = New System.Windows.Forms.TextBox()\r |
| 34 | Me.TxtPlayerCard1 = New System.Windows.Forms.TextBox()\r |
| 35 | Me.TxtPlayerCard2 = New System.Windows.Forms.TextBox()\r |
| 36 | Me.TxtPlayerCard3 = New System.Windows.Forms.TextBox()\r |
| 37 | Me.TxtPlayerCard4 = New System.Windows.Forms.TextBox()\r |
| 38 | Me.TxtPlayerCard5 = New System.Windows.Forms.TextBox()\r |
| 39 | Me.LblYou = New System.Windows.Forms.Label()\r |
| 40 | Me.LblStatus = New System.Windows.Forms.Label()\r |
| 41 | Me.LblDesc1 = New System.Windows.Forms.Label()\r |
| 42 | Me.LblDesc2 = New System.Windows.Forms.Label()\r |
| 43 | Me.LblDesc3 = New System.Windows.Forms.Label()\r |
| 44 | Me.LblDealer = New System.Windows.Forms.Label()\r |
| 45 | Me.TxtSplit5 = New System.Windows.Forms.TextBox()\r |
| 46 | Me.TxtSplit4 = New System.Windows.Forms.TextBox()\r |
| 47 | Me.TxtSplit3 = New System.Windows.Forms.TextBox()\r |
| 48 | Me.TxtSplit2 = New System.Windows.Forms.TextBox()\r |
| 49 | Me.TxtSplit1 = New System.Windows.Forms.TextBox()\r |
| 50 | Me.TxtDealerCard5 = New System.Windows.Forms.TextBox()\r |
| 51 | Me.TxtDealerCard4 = New System.Windows.Forms.TextBox()\r |
| 52 | Me.TxtDealerCard3 = New System.Windows.Forms.TextBox()\r |
| 53 | Me.TxtDealerCard2 = New System.Windows.Forms.TextBox()\r |
| 54 | Me.TxtDealerCard1 = New System.Windows.Forms.TextBox()\r |
| 55 | Me.LblDesc4 = New System.Windows.Forms.Label()\r |
| 56 | Me.CmdRules = New System.Windows.Forms.Button()\r |
| 57 | Me.SuspendLayout()\r |
| 58 | '\r |
| 59 | 'CmdHit\r |
| 60 | '\r |
| 61 | Me.CmdHit.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 62 | Me.CmdHit.Location = New System.Drawing.Point(28, 497)\r |
| 63 | Me.CmdHit.Name = "CmdHit"\r |
| 64 | Me.CmdHit.Size = New System.Drawing.Size(97, 42)\r |
| 65 | Me.CmdHit.TabIndex = 0\r |
| 66 | Me.CmdHit.Text = "Hit"\r |
| 67 | Me.CmdHit.UseVisualStyleBackColor = True\r |
| 68 | '\r |
| 69 | 'CmdDeal\r |
| 70 | '\r |
| 71 | Me.CmdDeal.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 72 | Me.CmdDeal.Location = New System.Drawing.Point(440, 497)\r |
| 73 | Me.CmdDeal.Name = "CmdDeal"\r |
| 74 | Me.CmdDeal.Size = New System.Drawing.Size(97, 42)\r |
| 75 | Me.CmdDeal.TabIndex = 1\r |
| 76 | Me.CmdDeal.Text = "Deal"\r |
| 77 | Me.CmdDeal.UseVisualStyleBackColor = True\r |
| 78 | '\r |
| 79 | 'CmdSplit\r |
| 80 | '\r |
| 81 | Me.CmdSplit.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 82 | Me.CmdSplit.Location = New System.Drawing.Point(337, 497)\r |
| 83 | Me.CmdSplit.Name = "CmdSplit"\r |
| 84 | Me.CmdSplit.Size = New System.Drawing.Size(97, 42)\r |
| 85 | Me.CmdSplit.TabIndex = 2\r |
| 86 | Me.CmdSplit.Text = "Split"\r |
| 87 | Me.CmdSplit.UseVisualStyleBackColor = True\r |
| 88 | '\r |
| 89 | 'CmdDoubleDown\r |
| 90 | '\r |
| 91 | Me.CmdDoubleDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 92 | Me.CmdDoubleDown.Location = New System.Drawing.Point(234, 497)\r |
| 93 | Me.CmdDoubleDown.Name = "CmdDoubleDown"\r |
| 94 | Me.CmdDoubleDown.Size = New System.Drawing.Size(97, 42)\r |
| 95 | Me.CmdDoubleDown.TabIndex = 3\r |
| 96 | Me.CmdDoubleDown.Text = "Double Down"\r |
| 97 | Me.CmdDoubleDown.UseVisualStyleBackColor = True\r |
| 98 | '\r |
| 99 | 'CmdStand\r |
| 100 | '\r |
| 101 | Me.CmdStand.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 102 | Me.CmdStand.Location = New System.Drawing.Point(131, 497)\r |
| 103 | Me.CmdStand.Name = "CmdStand"\r |
| 104 | Me.CmdStand.Size = New System.Drawing.Size(97, 42)\r |
| 105 | Me.CmdStand.TabIndex = 4\r |
| 106 | Me.CmdStand.Text = "Stand"\r |
| 107 | Me.CmdStand.UseVisualStyleBackColor = True\r |
| 108 | '\r |
| 109 | 'TxtTotal\r |
| 110 | '\r |
| 111 | Me.TxtTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 112 | Me.TxtTotal.Location = New System.Drawing.Point(660, 460)\r |
| 113 | Me.TxtTotal.Name = "TxtTotal"\r |
| 114 | Me.TxtTotal.ReadOnly = True\r |
| 115 | Me.TxtTotal.Size = New System.Drawing.Size(136, 26)\r |
| 116 | Me.TxtTotal.TabIndex = 5\r |
| 117 | Me.TxtTotal.Text = "100"\r |
| 118 | '\r |
| 119 | 'LblTotal\r |
| 120 | '\r |
| 121 | Me.LblTotal.AutoSize = True\r |
| 122 | Me.LblTotal.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 123 | Me.LblTotal.ForeColor = System.Drawing.SystemColors.ControlLightLight\r |
| 124 | Me.LblTotal.Location = New System.Drawing.Point(556, 460)\r |
| 125 | Me.LblTotal.Name = "LblTotal"\r |
| 126 | Me.LblTotal.Size = New System.Drawing.Size(98, 20)\r |
| 127 | Me.LblTotal.TabIndex = 6\r |
| 128 | Me.LblTotal.Text = "Your money:"\r |
| 129 | '\r |
| 130 | 'LblBet\r |
| 131 | '\r |
| 132 | Me.LblBet.AutoSize = True\r |
| 133 | Me.LblBet.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 134 | Me.LblBet.ForeColor = System.Drawing.SystemColors.ControlLightLight\r |
| 135 | Me.LblBet.Location = New System.Drawing.Point(575, 492)\r |
| 136 | Me.LblBet.Name = "LblBet"\r |
| 137 | Me.LblBet.Size = New System.Drawing.Size(79, 20)\r |
| 138 | Me.LblBet.TabIndex = 7\r |
| 139 | Me.LblBet.Text = "Enter bet:"\r |
| 140 | '\r |
| 141 | 'TxtBet\r |
| 142 | '\r |
| 143 | Me.TxtBet.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 144 | Me.TxtBet.Location = New System.Drawing.Point(660, 494)\r |
| 145 | Me.TxtBet.Name = "TxtBet"\r |
| 146 | Me.TxtBet.Size = New System.Drawing.Size(136, 26)\r |
| 147 | Me.TxtBet.TabIndex = 8\r |
| 148 | '\r |
| 149 | 'TxtPlayerCard1\r |
| 150 | '\r |
| 151 | Me.TxtPlayerCard1.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 152 | Me.TxtPlayerCard1.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 153 | Me.TxtPlayerCard1.Location = New System.Drawing.Point(30, 342)\r |
| 154 | Me.TxtPlayerCard1.Multiline = True\r |
| 155 | Me.TxtPlayerCard1.Name = "TxtPlayerCard1"\r |
| 156 | Me.TxtPlayerCard1.ReadOnly = True\r |
| 157 | Me.TxtPlayerCard1.Size = New System.Drawing.Size(94, 125)\r |
| 158 | Me.TxtPlayerCard1.TabIndex = 9\r |
| 159 | Me.TxtPlayerCard1.Visible = False\r |
| 160 | Me.TxtPlayerCard1.WordWrap = False\r |
| 161 | '\r |
| 162 | 'TxtPlayerCard2\r |
| 163 | '\r |
| 164 | Me.TxtPlayerCard2.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 165 | Me.TxtPlayerCard2.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 166 | Me.TxtPlayerCard2.Location = New System.Drawing.Point(134, 342)\r |
| 167 | Me.TxtPlayerCard2.Multiline = True\r |
| 168 | Me.TxtPlayerCard2.Name = "TxtPlayerCard2"\r |
| 169 | Me.TxtPlayerCard2.ReadOnly = True\r |
| 170 | Me.TxtPlayerCard2.Size = New System.Drawing.Size(94, 125)\r |
| 171 | Me.TxtPlayerCard2.TabIndex = 10\r |
| 172 | Me.TxtPlayerCard2.Visible = False\r |
| 173 | Me.TxtPlayerCard2.WordWrap = False\r |
| 174 | '\r |
| 175 | 'TxtPlayerCard3\r |
| 176 | '\r |
| 177 | Me.TxtPlayerCard3.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 178 | Me.TxtPlayerCard3.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 179 | Me.TxtPlayerCard3.Location = New System.Drawing.Point(237, 342)\r |
| 180 | Me.TxtPlayerCard3.Multiline = True\r |
| 181 | Me.TxtPlayerCard3.Name = "TxtPlayerCard3"\r |
| 182 | Me.TxtPlayerCard3.ReadOnly = True\r |
| 183 | Me.TxtPlayerCard3.Size = New System.Drawing.Size(94, 125)\r |
| 184 | Me.TxtPlayerCard3.TabIndex = 11\r |
| 185 | Me.TxtPlayerCard3.Visible = False\r |
| 186 | Me.TxtPlayerCard3.WordWrap = False\r |
| 187 | '\r |
| 188 | 'TxtPlayerCard4\r |
| 189 | '\r |
| 190 | Me.TxtPlayerCard4.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 191 | Me.TxtPlayerCard4.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 192 | Me.TxtPlayerCard4.Location = New System.Drawing.Point(340, 342)\r |
| 193 | Me.TxtPlayerCard4.Multiline = True\r |
| 194 | Me.TxtPlayerCard4.Name = "TxtPlayerCard4"\r |
| 195 | Me.TxtPlayerCard4.ReadOnly = True\r |
| 196 | Me.TxtPlayerCard4.Size = New System.Drawing.Size(94, 125)\r |
| 197 | Me.TxtPlayerCard4.TabIndex = 12\r |
| 198 | Me.TxtPlayerCard4.Visible = False\r |
| 199 | Me.TxtPlayerCard4.WordWrap = False\r |
| 200 | '\r |
| 201 | 'TxtPlayerCard5\r |
| 202 | '\r |
| 203 | Me.TxtPlayerCard5.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 204 | Me.TxtPlayerCard5.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 205 | Me.TxtPlayerCard5.Location = New System.Drawing.Point(443, 342)\r |
| 206 | Me.TxtPlayerCard5.Multiline = True\r |
| 207 | Me.TxtPlayerCard5.Name = "TxtPlayerCard5"\r |
| 208 | Me.TxtPlayerCard5.ReadOnly = True\r |
| 209 | Me.TxtPlayerCard5.Size = New System.Drawing.Size(94, 125)\r |
| 210 | Me.TxtPlayerCard5.TabIndex = 13\r |
| 211 | Me.TxtPlayerCard5.Visible = False\r |
| 212 | Me.TxtPlayerCard5.WordWrap = False\r |
| 213 | '\r |
| 214 | 'LblYou\r |
| 215 | '\r |
| 216 | Me.LblYou.AutoSize = True\r |
| 217 | Me.LblYou.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 218 | Me.LblYou.ForeColor = System.Drawing.SystemColors.ControlLightLight\r |
| 219 | Me.LblYou.Location = New System.Drawing.Point(592, 384)\r |
| 220 | Me.LblYou.Name = "LblYou"\r |
| 221 | Me.LblYou.Size = New System.Drawing.Size(87, 37)\r |
| 222 | Me.LblYou.TabIndex = 14\r |
| 223 | Me.LblYou.Text = "YOU"\r |
| 224 | '\r |
| 225 | 'LblStatus\r |
| 226 | '\r |
| 227 | Me.LblStatus.AutoSize = True\r |
| 228 | Me.LblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 229 | Me.LblStatus.ForeColor = System.Drawing.Color.Cyan\r |
| 230 | Me.LblStatus.Location = New System.Drawing.Point(574, 281)\r |
| 231 | Me.LblStatus.Name = "LblStatus"\r |
| 232 | Me.LblStatus.Size = New System.Drawing.Size(147, 25)\r |
| 233 | Me.LblStatus.TabIndex = 15\r |
| 234 | Me.LblStatus.Text = "Current status"\r |
| 235 | '\r |
| 236 | 'LblDesc1\r |
| 237 | '\r |
| 238 | Me.LblDesc1.AutoSize = True\r |
| 239 | Me.LblDesc1.Font = New System.Drawing.Font("Old English Text MT", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 240 | Me.LblDesc1.Location = New System.Drawing.Point(50, 204)\r |
| 241 | Me.LblDesc1.Name = "LblDesc1"\r |
| 242 | Me.LblDesc1.Size = New System.Drawing.Size(469, 77)\r |
| 243 | Me.LblDesc1.TabIndex = 16\r |
| 244 | Me.LblDesc1.Text = "BLACKJACK"\r |
| 245 | '\r |
| 246 | 'LblDesc2\r |
| 247 | '\r |
| 248 | Me.LblDesc2.AutoSize = True\r |
| 249 | Me.LblDesc2.Font = New System.Drawing.Font("Lucida Calligraphy", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 250 | Me.LblDesc2.Location = New System.Drawing.Point(81, 281)\r |
| 251 | Me.LblDesc2.Name = "LblDesc2"\r |
| 252 | Me.LblDesc2.Size = New System.Drawing.Size(394, 21)\r |
| 253 | Me.LblDesc2.TabIndex = 17\r |
| 254 | Me.LblDesc2.Text = "H17 Split to 2 No double after split"\r |
| 255 | '\r |
| 256 | 'LblDesc3\r |
| 257 | '\r |
| 258 | Me.LblDesc3.AutoSize = True\r |
| 259 | Me.LblDesc3.Font = New System.Drawing.Font("Lucida Calligraphy", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 260 | Me.LblDesc3.Location = New System.Drawing.Point(88, 305)\r |
| 261 | Me.LblDesc3.Name = "LblDesc3"\r |
| 262 | Me.LblDesc3.Size = New System.Drawing.Size(395, 21)\r |
| 263 | Me.LblDesc3.TabIndex = 18\r |
| 264 | Me.LblDesc3.Text = "Blackjack pays 3:2 Insurance pays 2:1"\r |
| 265 | '\r |
| 266 | 'LblDealer\r |
| 267 | '\r |
| 268 | Me.LblDealer.AutoSize = True\r |
| 269 | Me.LblDealer.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 270 | Me.LblDealer.ForeColor = System.Drawing.SystemColors.ControlLightLight\r |
| 271 | Me.LblDealer.Location = New System.Drawing.Point(592, 68)\r |
| 272 | Me.LblDealer.Name = "LblDealer"\r |
| 273 | Me.LblDealer.Size = New System.Drawing.Size(144, 37)\r |
| 274 | Me.LblDealer.TabIndex = 19\r |
| 275 | Me.LblDealer.Text = "DEALER"\r |
| 276 | '\r |
| 277 | 'TxtSplit5\r |
| 278 | '\r |
| 279 | Me.TxtSplit5.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 280 | Me.TxtSplit5.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 281 | Me.TxtSplit5.Location = New System.Drawing.Point(444, 209)\r |
| 282 | Me.TxtSplit5.Multiline = True\r |
| 283 | Me.TxtSplit5.Name = "TxtSplit5"\r |
| 284 | Me.TxtSplit5.ReadOnly = True\r |
| 285 | Me.TxtSplit5.Size = New System.Drawing.Size(94, 125)\r |
| 286 | Me.TxtSplit5.TabIndex = 24\r |
| 287 | Me.TxtSplit5.Visible = False\r |
| 288 | Me.TxtSplit5.WordWrap = False\r |
| 289 | '\r |
| 290 | 'TxtSplit4\r |
| 291 | '\r |
| 292 | Me.TxtSplit4.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 293 | Me.TxtSplit4.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 294 | Me.TxtSplit4.Location = New System.Drawing.Point(341, 209)\r |
| 295 | Me.TxtSplit4.Multiline = True\r |
| 296 | Me.TxtSplit4.Name = "TxtSplit4"\r |
| 297 | Me.TxtSplit4.ReadOnly = True\r |
| 298 | Me.TxtSplit4.Size = New System.Drawing.Size(94, 125)\r |
| 299 | Me.TxtSplit4.TabIndex = 23\r |
| 300 | Me.TxtSplit4.Visible = False\r |
| 301 | Me.TxtSplit4.WordWrap = False\r |
| 302 | '\r |
| 303 | 'TxtSplit3\r |
| 304 | '\r |
| 305 | Me.TxtSplit3.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 306 | Me.TxtSplit3.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 307 | Me.TxtSplit3.Location = New System.Drawing.Point(238, 209)\r |
| 308 | Me.TxtSplit3.Multiline = True\r |
| 309 | Me.TxtSplit3.Name = "TxtSplit3"\r |
| 310 | Me.TxtSplit3.ReadOnly = True\r |
| 311 | Me.TxtSplit3.Size = New System.Drawing.Size(94, 125)\r |
| 312 | Me.TxtSplit3.TabIndex = 22\r |
| 313 | Me.TxtSplit3.Visible = False\r |
| 314 | Me.TxtSplit3.WordWrap = False\r |
| 315 | '\r |
| 316 | 'TxtSplit2\r |
| 317 | '\r |
| 318 | Me.TxtSplit2.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 319 | Me.TxtSplit2.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 320 | Me.TxtSplit2.Location = New System.Drawing.Point(135, 209)\r |
| 321 | Me.TxtSplit2.Multiline = True\r |
| 322 | Me.TxtSplit2.Name = "TxtSplit2"\r |
| 323 | Me.TxtSplit2.ReadOnly = True\r |
| 324 | Me.TxtSplit2.Size = New System.Drawing.Size(94, 125)\r |
| 325 | Me.TxtSplit2.TabIndex = 21\r |
| 326 | Me.TxtSplit2.Visible = False\r |
| 327 | Me.TxtSplit2.WordWrap = False\r |
| 328 | '\r |
| 329 | 'TxtSplit1\r |
| 330 | '\r |
| 331 | Me.TxtSplit1.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 332 | Me.TxtSplit1.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 333 | Me.TxtSplit1.Location = New System.Drawing.Point(31, 209)\r |
| 334 | Me.TxtSplit1.Multiline = True\r |
| 335 | Me.TxtSplit1.Name = "TxtSplit1"\r |
| 336 | Me.TxtSplit1.ReadOnly = True\r |
| 337 | Me.TxtSplit1.Size = New System.Drawing.Size(94, 125)\r |
| 338 | Me.TxtSplit1.TabIndex = 20\r |
| 339 | Me.TxtSplit1.Visible = False\r |
| 340 | Me.TxtSplit1.WordWrap = False\r |
| 341 | '\r |
| 342 | 'TxtDealerCard5\r |
| 343 | '\r |
| 344 | Me.TxtDealerCard5.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 345 | Me.TxtDealerCard5.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 346 | Me.TxtDealerCard5.Location = New System.Drawing.Point(444, 30)\r |
| 347 | Me.TxtDealerCard5.Multiline = True\r |
| 348 | Me.TxtDealerCard5.Name = "TxtDealerCard5"\r |
| 349 | Me.TxtDealerCard5.ReadOnly = True\r |
| 350 | Me.TxtDealerCard5.Size = New System.Drawing.Size(94, 125)\r |
| 351 | Me.TxtDealerCard5.TabIndex = 29\r |
| 352 | Me.TxtDealerCard5.Visible = False\r |
| 353 | Me.TxtDealerCard5.WordWrap = False\r |
| 354 | '\r |
| 355 | 'TxtDealerCard4\r |
| 356 | '\r |
| 357 | Me.TxtDealerCard4.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 358 | Me.TxtDealerCard4.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 359 | Me.TxtDealerCard4.Location = New System.Drawing.Point(341, 30)\r |
| 360 | Me.TxtDealerCard4.Multiline = True\r |
| 361 | Me.TxtDealerCard4.Name = "TxtDealerCard4"\r |
| 362 | Me.TxtDealerCard4.ReadOnly = True\r |
| 363 | Me.TxtDealerCard4.Size = New System.Drawing.Size(94, 125)\r |
| 364 | Me.TxtDealerCard4.TabIndex = 28\r |
| 365 | Me.TxtDealerCard4.Visible = False\r |
| 366 | Me.TxtDealerCard4.WordWrap = False\r |
| 367 | '\r |
| 368 | 'TxtDealerCard3\r |
| 369 | '\r |
| 370 | Me.TxtDealerCard3.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 371 | Me.TxtDealerCard3.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 372 | Me.TxtDealerCard3.Location = New System.Drawing.Point(238, 30)\r |
| 373 | Me.TxtDealerCard3.Multiline = True\r |
| 374 | Me.TxtDealerCard3.Name = "TxtDealerCard3"\r |
| 375 | Me.TxtDealerCard3.ReadOnly = True\r |
| 376 | Me.TxtDealerCard3.Size = New System.Drawing.Size(94, 125)\r |
| 377 | Me.TxtDealerCard3.TabIndex = 27\r |
| 378 | Me.TxtDealerCard3.Visible = False\r |
| 379 | Me.TxtDealerCard3.WordWrap = False\r |
| 380 | '\r |
| 381 | 'TxtDealerCard2\r |
| 382 | '\r |
| 383 | Me.TxtDealerCard2.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 384 | Me.TxtDealerCard2.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 385 | Me.TxtDealerCard2.Location = New System.Drawing.Point(135, 30)\r |
| 386 | Me.TxtDealerCard2.Multiline = True\r |
| 387 | Me.TxtDealerCard2.Name = "TxtDealerCard2"\r |
| 388 | Me.TxtDealerCard2.ReadOnly = True\r |
| 389 | Me.TxtDealerCard2.Size = New System.Drawing.Size(94, 125)\r |
| 390 | Me.TxtDealerCard2.TabIndex = 26\r |
| 391 | Me.TxtDealerCard2.Visible = False\r |
| 392 | Me.TxtDealerCard2.WordWrap = False\r |
| 393 | '\r |
| 394 | 'TxtDealerCard1\r |
| 395 | '\r |
| 396 | Me.TxtDealerCard1.BackColor = System.Drawing.SystemColors.ButtonHighlight\r |
| 397 | Me.TxtDealerCard1.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r |
| 398 | Me.TxtDealerCard1.Location = New System.Drawing.Point(31, 30)\r |
| 399 | Me.TxtDealerCard1.Multiline = True\r |
| 400 | Me.TxtDealerCard1.Name = "TxtDealerCard1"\r |
| 401 | Me.TxtDealerCard1.ReadOnly = True\r |
| 402 | Me.TxtDealerCard1.Size = New System.Drawing.Size(94, 125)\r |
| 403 | Me.TxtDealerCard1.TabIndex = 25\r |
| 404 | Me.TxtDealerCard1.Visible = False\r |
| 405 | Me.TxtDealerCard1.WordWrap = False\r |
| 406 | '\r |
| 407 | 'LblDesc4\r |
| 408 | '\r |
| 409 | Me.LblDesc4.AutoSize = True\r |
| 410 | Me.LblDesc4.Location = New System.Drawing.Point(543, 521)\r |
| 411 | Me.LblDesc4.Name = "LblDesc4"\r |
| 412 | Me.LblDesc4.Size = New System.Drawing.Size(377, 13)\r |
| 413 | Me.LblDesc4.TabIndex = 30\r |
| 414 | Me.LblDesc4.Text = "Please enter an even number. Otherwise your winnings may be rounded down."\r |
| 415 | '\r |
| 416 | 'CmdRules\r |
| 417 | '\r |
| 418 | Me.CmdRules.Location = New System.Drawing.Point(812, 460)\r |
| 419 | Me.CmdRules.Name = "CmdRules"\r |
| 420 | Me.CmdRules.Size = New System.Drawing.Size(68, 56)\r |
| 421 | Me.CmdRules.TabIndex = 31\r |
| 422 | Me.CmdRules.Text = "Rules (Help)"\r |
| 423 | Me.CmdRules.UseVisualStyleBackColor = True\r |
| 424 | '\r |
| 425 | 'Blackjack\r |
| 426 | '\r |
| 427 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)\r |
| 428 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font\r |
| 429 | Me.BackColor = System.Drawing.Color.OliveDrab\r |
| 430 | Me.ClientSize = New System.Drawing.Size(918, 545)\r |
| 431 | Me.Controls.Add(Me.CmdRules)\r |
| 432 | Me.Controls.Add(Me.LblDesc4)\r |
| 433 | Me.Controls.Add(Me.TxtDealerCard5)\r |
| 434 | Me.Controls.Add(Me.TxtDealerCard4)\r |
| 435 | Me.Controls.Add(Me.TxtDealerCard3)\r |
| 436 | Me.Controls.Add(Me.TxtDealerCard2)\r |
| 437 | Me.Controls.Add(Me.TxtDealerCard1)\r |
| 438 | Me.Controls.Add(Me.TxtSplit5)\r |
| 439 | Me.Controls.Add(Me.TxtSplit4)\r |
| 440 | Me.Controls.Add(Me.TxtSplit3)\r |
| 441 | Me.Controls.Add(Me.TxtSplit2)\r |
| 442 | Me.Controls.Add(Me.TxtSplit1)\r |
| 443 | Me.Controls.Add(Me.LblDealer)\r |
| 444 | Me.Controls.Add(Me.LblDesc3)\r |
| 445 | Me.Controls.Add(Me.LblDesc2)\r |
| 446 | Me.Controls.Add(Me.LblDesc1)\r |
| 447 | Me.Controls.Add(Me.LblStatus)\r |
| 448 | Me.Controls.Add(Me.LblYou)\r |
| 449 | Me.Controls.Add(Me.TxtPlayerCard5)\r |
| 450 | Me.Controls.Add(Me.TxtPlayerCard4)\r |
| 451 | Me.Controls.Add(Me.TxtPlayerCard3)\r |
| 452 | Me.Controls.Add(Me.TxtPlayerCard2)\r |
| 453 | Me.Controls.Add(Me.TxtPlayerCard1)\r |
| 454 | Me.Controls.Add(Me.TxtBet)\r |
| 455 | Me.Controls.Add(Me.LblBet)\r |
| 456 | Me.Controls.Add(Me.LblTotal)\r |
| 457 | Me.Controls.Add(Me.TxtTotal)\r |
| 458 | Me.Controls.Add(Me.CmdStand)\r |
| 459 | Me.Controls.Add(Me.CmdDoubleDown)\r |
| 460 | Me.Controls.Add(Me.CmdSplit)\r |
| 461 | Me.Controls.Add(Me.CmdDeal)\r |
| 462 | Me.Controls.Add(Me.CmdHit)\r |
| 463 | Me.MaximizeBox = False\r |
| 464 | Me.MaximumSize = New System.Drawing.Size(934, 583)\r |
| 465 | Me.MinimumSize = New System.Drawing.Size(934, 583)\r |
| 466 | Me.Name = "Blackjack"\r |
| 467 | Me.Text = "Blackjack"\r |
| 468 | Me.ResumeLayout(False)\r |
| 469 | Me.PerformLayout()\r |
| 470 | \r |
| 471 | End Sub\r |
| 472 | Friend WithEvents CmdHit As System.Windows.Forms.Button\r |
| 473 | Friend WithEvents CmdDeal As System.Windows.Forms.Button\r |
| 474 | Friend WithEvents CmdSplit As System.Windows.Forms.Button\r |
| 475 | Friend WithEvents CmdDoubleDown As System.Windows.Forms.Button\r |
| 476 | Friend WithEvents CmdStand As System.Windows.Forms.Button\r |
| 477 | Friend WithEvents TxtTotal As System.Windows.Forms.TextBox\r |
| 478 | Friend WithEvents LblTotal As System.Windows.Forms.Label\r |
| 479 | Friend WithEvents LblBet As System.Windows.Forms.Label\r |
| 480 | Friend WithEvents TxtBet As System.Windows.Forms.TextBox\r |
| 481 | Friend WithEvents TxtPlayerCard1 As System.Windows.Forms.TextBox\r |
| 482 | Friend WithEvents TxtPlayerCard2 As System.Windows.Forms.TextBox\r |
| 483 | Friend WithEvents TxtPlayerCard3 As System.Windows.Forms.TextBox\r |
| 484 | Friend WithEvents TxtPlayerCard4 As System.Windows.Forms.TextBox\r |
| 485 | Friend WithEvents TxtPlayerCard5 As System.Windows.Forms.TextBox\r |
| 486 | Friend WithEvents LblYou As System.Windows.Forms.Label\r |
| 487 | Friend WithEvents LblStatus As System.Windows.Forms.Label\r |
| 488 | Friend WithEvents LblDesc1 As System.Windows.Forms.Label\r |
| 489 | Friend WithEvents LblDesc2 As System.Windows.Forms.Label\r |
| 490 | Friend WithEvents LblDesc3 As System.Windows.Forms.Label\r |
| 491 | Friend WithEvents LblDealer As System.Windows.Forms.Label\r |
| 492 | Friend WithEvents TxtSplit5 As System.Windows.Forms.TextBox\r |
| 493 | Friend WithEvents TxtSplit4 As System.Windows.Forms.TextBox\r |
| 494 | Friend WithEvents TxtSplit3 As System.Windows.Forms.TextBox\r |
| 495 | Friend WithEvents TxtSplit2 As System.Windows.Forms.TextBox\r |
| 496 | Friend WithEvents TxtSplit1 As System.Windows.Forms.TextBox\r |
| 497 | Friend WithEvents TxtDealerCard5 As System.Windows.Forms.TextBox\r |
| 498 | Friend WithEvents TxtDealerCard4 As System.Windows.Forms.TextBox\r |
| 499 | Friend WithEvents TxtDealerCard3 As System.Windows.Forms.TextBox\r |
| 500 | Friend WithEvents TxtDealerCard2 As System.Windows.Forms.TextBox\r |
| 501 | Friend WithEvents TxtDealerCard1 As System.Windows.Forms.TextBox\r |
| 502 | Friend WithEvents LblDesc4 As System.Windows.Forms.Label\r |
| 503 | Friend WithEvents CmdRules As System.Windows.Forms.Button\r |
| 504 | \r |
| 505 | End Class\r |