VERSION 5.00 Begin VB.Form frmAbout BorderStyle = 3 'Fixed Dialog Caption = "About MyApp" ClientHeight = 5340 ClientLeft = 2340 ClientTop = 1935 ClientWidth = 7305 ClipControls = 0 'False Icon = "frmAbout.frx":0000 LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3685.763 ScaleMode = 0 'User ScaleWidth = 6859.772 ShowInTaskbar = 0 'False StartUpPosition = 1 'CenterOwner Begin VB.TextBox lblDisclaimer Height = 2460 Left = 90 MultiLine = -1 'True TabIndex = 5 Top = 2760 Width = 7095 End Begin VB.PictureBox picIcon AutoSize = -1 'True ClipControls = 0 'False Height = 1020 Left = 240 Picture = "frmAbout.frx":08CA ScaleHeight = 674.24 ScaleMode = 0 'User ScaleWidth = 674.24 TabIndex = 1 Top = 240 Width = 1020 End Begin VB.CommandButton cmdOK Cancel = -1 'True Caption = "OK" Default = -1 'True Height = 345 Left = 5970 TabIndex = 0 Top = 105 Width = 1260 End Begin VB.Label Label1 Caption = "Inform License" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 210 Left = 150 TabIndex = 6 Top = 2535 Width = 1485 End Begin VB.Line Line1 BorderColor = &H00808080& BorderStyle = 6 'Inside Solid Index = 1 X1 = 84.515 X2 = 6761.171 Y1 = 1687.583 Y2 = 1687.583 End Begin VB.Label lblDescription Caption = "App Description" ForeColor = &H00000000& Height = 1170 Left = 1320 TabIndex = 2 Top = 1125 Width = 4620 WordWrap = -1 'True End Begin VB.Label lblTitle Caption = "Application Title" ForeColor = &H00000000& Height = 480 Left = 1320 TabIndex = 3 Top = 240 Width = 4605 End Begin VB.Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 0 X1 = 98.6 X2 = 6761.171 Y1 = 1697.936 Y2 = 1697.936 End Begin VB.Label lblVersion Caption = "Version" Height = 225 Left = 1320 TabIndex = 4 Top = 780 Width = 4620 End End Attribute VB_Name = "frmAbout" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() Me.Caption = "About " & App.Title lblVersion.Caption = "Version: Beta " & App.Major & "." & App.Minor lblTitle.Caption = App.Title lblDescription.Caption = "All rights to Inform are held by Graham Nelson. All rights to Visual Inform are held by David Cornelson where it does not conflict with the Inform license." lblDisclaimer = "Copyright on Inform, the program and its source code, its example games and documentation is retained by Graham Nelson, who asserts the moral right to be identified as the author under the Copyrights, Designs and Patents Act 1988. Having said this, I am happy for it to be freely distributed to anybody who wants a copy, provided that: (a) distributed copies are not substantially different from those archived by the author, (b) this and other copyright messages are always retained in full, and (c) no profit is involved. (Exceptions to these rules must be negotiated directly with the author.) However, a story file produced with the Inform compiler (and libraries) then belongs to its author, and may be sold for profit if desired, provided that its game banner contains the information that it was compiled by Inform, and the Inform version number." End Sub