VERSION 5.00 Begin VB.Form frmAbout BackColor = &H00FFFFFF& BorderStyle = 3 'Fixed Dialog Caption = "About QuestionMaster" ClientHeight = 6555 ClientLeft = 45 ClientTop = 330 ClientWidth = 7815 Icon = "frmAbout.frx":0000 LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6555 ScaleWidth = 7815 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& Height = 540 Left = 120 Picture = "frmAbout.frx":000C ScaleHeight = 480 ScaleWidth = 480 TabIndex = 17 Top = 120 Width = 540 End Begin VB.CommandButton Command2 Caption = "Click to &View License" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 840 TabIndex = 10 Top = 1680 Width = 6375 End Begin VB.CommandButton Command1 Cancel = -1 'True Caption = "&OK" Default = -1 'True Height = 375 Left = 5640 TabIndex = 4 Top = 6120 Width = 1695 End Begin VB.TextBox Text1 BackColor = &H8000000F& BeginProperty Font Name = "Fixedsys" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 120 Locked = -1 'True MultiLine = -1 'True ScrollBars = 3 'Both TabIndex = 3 Text = "frmAbout.frx":0E4E Top = 840 Visible = 0 'False Width = 495 End Begin VB.Label Label5 BackStyle = 0 'Transparent Caption = $"frmAbout.frx":559E Height = 735 Left = 840 TabIndex = 16 Top = 3840 Width = 6255 End Begin VB.Label Label6 BackStyle = 0 'Transparent Caption = $"frmAbout.frx":56AA Height = 1215 Left = 840 TabIndex = 15 Top = 4560 Width = 6255 End Begin VB.Label Label8 BackStyle = 0 'Transparent Caption = "irc.blitzed.org" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Left = 945 TabIndex = 14 Top = 2280 Width = 1215 End Begin VB.Label Label7 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Visit irc.blitzed.org for the ride of your life! Blitzed - where the magic never ends..." BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 255 Left = 480 TabIndex = 13 Top = 2280 Width = 7095 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = "http://harlequin.sourceforge.net/" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Index = 3 Left = 2280 MousePointer = 10 'Up Arrow TabIndex = 12 Top = 2760 Width = 3495 End Begin VB.Label Label3 BackStyle = 0 'Transparent Caption = "Blitzia home:" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 840 TabIndex = 11 Top = 2760 Width = 1335 End Begin VB.Label Label3 BackStyle = 0 'Transparent Caption = "Taras's site:" Height = 255 Index = 1 Left = 840 TabIndex = 8 Top = 3240 Width = 1335 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = "http://www.snowblind.net/" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Index = 1 Left = 2280 MousePointer = 10 'Up Arrow TabIndex = 7 Top = 3240 Width = 3495 End Begin VB.Label Label3 BackStyle = 0 'Transparent Caption = "Blitzia project:" Height = 255 Index = 0 Left = 840 TabIndex = 6 Top = 3000 Width = 1335 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = "http://www.sourceforge.net/projects/harlequin/" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Index = 0 Left = 2280 MousePointer = 10 'Up Arrow TabIndex = 5 Top = 3000 Width = 3495 End Begin VB.Label Label2 BackStyle = 0 'Transparent Caption = $"frmAbout.frx":58CA Height = 735 Index = 0 Left = 840 TabIndex = 2 Top = 960 Width = 5895 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "QuestionMaster comes with ABSOLUTELY NO WARRANTY." Height = 255 Index = 1 Left = 840 TabIndex = 1 Top = 720 Width = 5775 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Blitzia Question Master - Win32 version 0.14, Copyright (C) 2001 Taras Young" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 840 TabIndex = 0 Top = 120 Width = 6855 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = "mailto:crappy@users.sourceforge.net" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 255 Index = 2 Left = 840 MousePointer = 10 'Up Arrow TabIndex = 9 Top = 340 Width = 2775 End Begin VB.Image Image1 Height = 6615 Left = 0 Picture = "frmAbout.frx":598E Stretch = -1 'True Top = 0 Width = 7815 End End Attribute VB_Name = "frmAbout" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False ' Copyright (C) 2001 Taras Young ' This program is free software; you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation; either version 2 of the License, or ' (at your option) any later version. ' This program is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU General Public License for more details. ' You should have received a copy of the GNU General Public License ' along with this program; if not, write to the Free Software ' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Open App.Path + "\gnugpl.txt.temp" For Output As #1 Print #1, Text1.Text Close #1 Shell "notepad.exe " + App.Path + "\gnugpl.txt.temp", vbNormalFocus End Sub Private Sub Label4_Click(Index As Integer) GoToWeb Label4(Index).Caption End Sub Private Sub Label8_Click() GoToWeb "http://www.blitzed.org/" End Sub