1 '/**********************************************************************************
\r
3 ' * Copyright 2013 Adrian Lam *
\r
4 ' * Last edited 22/11/2013 *
\r
6 ' **********************************************************************************
\r
7 ' * This file is part of Blackjack *
\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
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
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
22 ' **********************************************************************************/
\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
30 TxtRules.Select(0, 0)
\r