Subversion Repositories aysalia

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1 
VERSION 5.00
2 
Begin VB.Form Story
3 
   BackColor       =   &H00000000&
4 
   BorderStyle     =   0  'None
5 
   Caption         =   "Story"
6 
   ClientHeight    =   5310
7 
   ClientLeft      =   0
8 
   ClientTop       =   0
9 
   ClientWidth     =   4920
10 
   LinkTopic       =   "Story"
11 
   ScaleHeight     =   5310
12 
   ScaleWidth      =   4920
13 
   ShowInTaskbar   =   0   'False
14 
   StartUpPosition =   2  'CenterScreen
15 
   Begin VB.CommandButton Command1
16 
      BackColor       =   &H00E0E0E0&
17 
      Cancel          =   -1  'True
18 
      Caption         =   "So soll es sein!"
19 
      Default         =   -1  'True
20 
      BeginProperty Font
21 
         Name            =   "Arial"
22 
         Size            =   8.25
23 
         Charset         =   0
24 
         Weight          =   700
25 
         Underline       =   0   'False
26 
         Italic          =   0   'False
27 
         Strikethrough   =   0   'False
28 
      EndProperty
29 
      Height          =   375
30 
      Left            =   1560
31 
      Style           =   1  'Graphical
32 
      TabIndex        =   3
33 
      Top             =   4800
34 
      Width           =   1935
35 
   End
36 
   Begin VB.Label Label4
37 
      Alignment       =   2  'Center
38 
      BackStyle       =   0  'Transparent
39 
      Caption         =   "Das Zeitalter der Dämonen"
40 
      BeginProperty Font
41 
         Name            =   "Times New Roman"
42 
         Size            =   11.25
43 
         Charset         =   0
44 
         Weight          =   700
45 
         Underline       =   0   'False
46 
         Italic          =   0   'False
47 
         Strikethrough   =   0   'False
48 
      EndProperty
49 
      ForeColor       =   &H00FFFFFF&
50 
      Height          =   255
51 
      Left            =   240
52 
      TabIndex        =   4
53 
      Top             =   120
54 
      Width           =   4455
55 
   End
56 
   Begin VB.Label Label3
57 
      Alignment       =   2  'Center
58 
      BackStyle       =   0  'Transparent
59 
      Caption         =   "Label3"
60 
      BeginProperty Font
61 
         Name            =   "Times New Roman"
62 
         Size            =   12
63 
         Charset         =   0
64 
         Weight          =   700
65 
         Underline       =   0   'False
66 
         Italic          =   0   'False
67 
         Strikethrough   =   0   'False
68 
      EndProperty
69 
      ForeColor       =   &H00C0FFFF&
70 
      Height          =   600
71 
      Left            =   0
72 
      TabIndex        =   2
73 
      Top             =   4200
74 
      Width           =   4920
75 
   End
76 
   Begin VB.Label Label2
77 
      Alignment       =   2  'Center
78 
      AutoSize        =   -1  'True
79 
      BackStyle       =   0  'Transparent
80 
      Caption         =   "Und dieser Held wirst du sein,"
81 
      BeginProperty Font
82 
         Name            =   "Arial"
83 
         Size            =   9.75
84 
         Charset         =   0
85 
         Weight          =   700
86 
         Underline       =   0   'False
87 
         Italic          =   0   'False
88 
         Strikethrough   =   0   'False
89 
      EndProperty
90 
      ForeColor       =   &H00FFFFFF&
91 
      Height          =   240
92 
      Left            =   0
93 
      TabIndex        =   1
94 
      Top             =   3960
95 
      Width           =   4920
96 
   End
97 
   Begin VB.Label Label1
98 
      BackStyle       =   0  'Transparent
99 
      Caption         =   $"Story.frx":0000
100 
      BeginProperty Font
101 
         Name            =   "Times New Roman"
102 
         Size            =   12
103 
         Charset         =   0
104 
         Weight          =   700
105 
         Underline       =   0   'False
106 
         Italic          =   0   'False
107 
         Strikethrough   =   0   'False
108 
      EndProperty
109 
      ForeColor       =   &H00C0C0FF&
110 
      Height          =   3255
111 
      Left            =   480
112 
      TabIndex        =   0
113 
      Top             =   480
114 
      Width           =   4095
115 
   End
116 
   Begin VB.Shape Shape1
117 
      BorderColor     =   &H000000FF&
118 
      FillColor       =   &H00110086&
119 
      FillStyle       =   0  'Solid
120 
      Height          =   3255
121 
      Left            =   240
122 
      Top             =   480
123 
      Width           =   4455
124 
   End
125 
End
126 
Attribute VB_Name = "Story"
127 
Attribute VB_GlobalNameSpace = False
128 
Attribute VB_Creatable = False
129 
Attribute VB_PredeclaredId = True
130 
Attribute VB_Exposed = False
131 
Private Sub Command1_Click()
132 
Unload Story
133 
End Sub
134 
 
135 
Private Sub Form_Load()
136 
Label3.Caption = Nom
137 
End Sub