home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Enigma_Cod19480211132005.psc / frmAbout.frm < prev    next >
Text File  |  2005-11-12  |  4KB  |  116 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " About Enigma Codebook Tool"
  5.    ClientHeight    =   3690
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1935
  8.    ClientWidth     =   6045
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    HelpContextID   =   700
  12.    LinkTopic       =   "Form2"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1074.236
  17.    ScaleMode       =   0  'User
  18.    ScaleWidth      =   1123.685
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21.    Begin VB.PictureBox Picture1 
  22.       BackColor       =   &H00E0E0E0&
  23.       Height          =   2220
  24.       Left            =   105
  25.       ScaleHeight     =   2160
  26.       ScaleWidth      =   900
  27.       TabIndex        =   5
  28.       TabStop         =   0   'False
  29.       Top             =   105
  30.       Width           =   960
  31.       Begin VB.Image Image1 
  32.          Height          =   600
  33.          Left            =   150
  34.          Picture         =   "frmAbout.frx":0000
  35.          Stretch         =   -1  'True
  36.          Top             =   1440
  37.          Width           =   615
  38.       End
  39.    End
  40.    Begin VB.Frame Frame1 
  41.       Height          =   120
  42.       Left            =   105
  43.       TabIndex        =   4
  44.       Top             =   2310
  45.       Width           =   5790
  46.    End
  47.    Begin VB.CommandButton cmdOK 
  48.       Cancel          =   -1  'True
  49.       Caption         =   "&OK"
  50.       Default         =   -1  'True
  51.       Height          =   362
  52.       Left            =   4515
  53.       TabIndex        =   0
  54.       Top             =   2520
  55.       Width           =   1365
  56.    End
  57.    Begin VB.Label lblDescription 
  58.       Caption         =   "Description"
  59.       Height          =   1380
  60.       Left            =   1260
  61.       TabIndex        =   6
  62.       Top             =   960
  63.       Width           =   4635
  64.    End
  65.    Begin VB.Label lblWarning 
  66.       Caption         =   $"frmAbout.frx":030A
  67.       ForeColor       =   &H00000000&
  68.       Height          =   825
  69.       Left            =   105
  70.       TabIndex        =   1
  71.       Top             =   2520
  72.       Width           =   4350
  73.    End
  74.    Begin VB.Label lblTitle 
  75.       Caption         =   "Enigma Codebook Tool"
  76.       BeginProperty Font 
  77.          Name            =   "MS Sans Serif"
  78.          Size            =   18
  79.          Charset         =   0
  80.          Weight          =   700
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       ForeColor       =   &H00FF0000&
  86.       Height          =   495
  87.       Left            =   1260
  88.       TabIndex        =   2
  89.       Top             =   120
  90.       Width           =   4725
  91.    End
  92.    Begin VB.Label lblVersion 
  93.       Caption         =   "Version 2.0"
  94.       Height          =   225
  95.       Left            =   1260
  96.       TabIndex        =   3
  97.       Top             =   600
  98.       Width           =   4605
  99.    End
  100. End
  101. Attribute VB_Name = "frmAbout"
  102. Attribute VB_GlobalNameSpace = False
  103. Attribute VB_Creatable = False
  104. Attribute VB_PredeclaredId = True
  105. Attribute VB_Exposed = False
  106. Option Explicit
  107.  
  108. Private Sub Form_Load()
  109. Me.lblDescription.Caption = "Codebook creator for 3 rotor Wehrmacht/Luftwaffe, 3 rotor Kriegsmarine M3 and 4 rotor Kriegsmarine M4  Enigma cipher machine models." & vbCrLf & vbCrLf & "Programming by Dirk Rijmenants" & vbCrLf & vbCrLf & "⌐ DEFCOM 1999 - 2005"
  110. End Sub
  111.  
  112. Private Sub cmdOK_Click()
  113. Me.Hide
  114. End Sub
  115.  
  116.