| 0,0 → 1,216 |
|---|
| VERSION 5.00 |
| Begin VB.Form Vorgeschichte |
| BackColor = &H00674E3A& |
| BorderStyle = 0 'None |
| ClientHeight = 6315 |
| ClientLeft = 0 |
| ClientTop = 60 |
| ClientWidth = 5955 |
| ControlBox = 0 'False |
| LinkTopic = "Vorgeschichte" |
| ScaleHeight = 6315 |
| ScaleWidth = 5955 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'CenterScreen |
| Begin VB.CommandButton Command1 |
| BackColor = &H00FF8080& |
| Cancel = -1 'True |
| Caption = "Bestätigen" |
| Default = -1 'True |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 375 |
| Left = 4440 |
| Style = 1 'Graphical |
| TabIndex = 4 |
| Top = 5760 |
| Width = 1335 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "nach einem Helden, der" |
| BeginProperty Font |
| Name = "Arial" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 285 |
| Left = 2880 |
| TabIndex = 8 |
| Top = 3480 |
| Width = 2685 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "schreit" |
| BeginProperty Font |
| Name = "Arial" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = -1 'True |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 345 |
| Left = 1680 |
| TabIndex = 7 |
| Top = 3450 |
| Width = 975 |
| End |
| Begin VB.Label Label6 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Das Land" |
| BeginProperty Font |
| Name = "Arial" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 285 |
| Left = 480 |
| TabIndex = 6 |
| Top = 3480 |
| Width = 1095 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Was bisher geschah..." |
| BeginProperty Font |
| Name = "Arial" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 285 |
| Left = 480 |
| TabIndex = 5 |
| Top = 360 |
| Width = 2505 |
| End |
| Begin VB.Label Label4 |
| Alignment = 1 'Right Justify |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "#Name einfügen#" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 18 |
| Charset = 0 |
| Weight = 400 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H000000FF& |
| Height = 405 |
| Left = 3240 |
| TabIndex = 3 |
| Top = 5160 |
| Width = 2550 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Und dieser Held bist du," |
| BeginProperty Font |
| Name = "Arial" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 285 |
| Left = 480 |
| TabIndex = 2 |
| Top = 4800 |
| Width = 2730 |
| End |
| Begin VB.Label Label2 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "dieses von der Dunkelheit ins Licht führt." |
| BeginProperty Font |
| Name = "Arial" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 285 |
| Left = 480 |
| TabIndex = 1 |
| Top = 3840 |
| Width = 4665 |
| End |
| Begin VB.Label Label1 |
| BackStyle = 0 'Transparent |
| Caption = $"DQstory.frx":0000 |
| BeginProperty Font |
| Name = "Arial" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00C0C0C0& |
| Height = 2415 |
| Left = 480 |
| TabIndex = 0 |
| Top = 840 |
| Width = 5175 |
| End |
| End |
| Attribute VB_Name = "Vorgeschichte" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Command1_Click() |
| wettera = Int(4 * Rnd) |
| If wettera = 0 Then wetter = "Klar" |
| If wettera = 1 Then wetter = "Regen" |
| If wettera = 2 Then wetter = "Sonnig" |
| If wettera = 3 Then wetter = "Klar" |
| |
| Unload Vorgeschichte |
| Landkarte.Show |
| End Sub |
| |
| Private Sub Form_Load() |
| Label4.Caption = nom |
| End Sub |
| |