src/Blackjack/Rules.vb

   1 '/**********************************************************************************\r
   2 ' * Blackjack                                                                      *\r
   3 ' * Copyright 2013 Adrian Lam                                                      *\r
   4 ' * Last edited 22/11/2013                                                         *\r
   5 ' * Version: beta                                                                  *\r
   6 ' **********************************************************************************\r
   7 ' * This file is part of Blackjack                                                 *\r
   8 ' *                                                                                *\r
   9 ' * Blackjack is free software: you can redistribute it and/or modify              *\r
  10 ' * it under the terms of the GNU General Public License as published by           *\r
  11 ' * the Free Software Foundation; either version 3 of the License, or              *\r
  12 ' * (at your option) any later version.                                            *\r
  13 ' *                                                                                *\r
  14 ' * This program is distributed in the hope that it will be useful,                *\r
  15 ' * but WITHOUT ANY WARRANTY; without even the implied warrranty of                *\r
  16 ' * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                  *\r
  17 ' * GNU General Public License for more details.                                   *\r
  18 ' *                                                                                *\r
  19 ' * You should have received a copy of the GNU General Public License              *\r
  20 ' * along with this program; if not, see <http://www.gnu.org/licenses/>            *\r
  21 ' *                                                                                *\r
  22 ' **********************************************************************************/\r
  23 \r
  24 Public Class Rules\r
  25     Private Sub Rules_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load\r
  26         TxtRules.Text = "Rule number 1" & Chr(13) & Chr(10) & _\r
  27             "Rule number 2" & Chr(13) & Chr(10) & _\r
  28             "Lorem ipsum dolor sit amet" & Chr(13) & Chr(10)\r
  29 \r
  30         TxtRules.Select(0, 0)\r
  31     End Sub\r
  32 End Class