home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / pcplus / handson / vbwrk107 / apimlogo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-04  |  4.1 KB  |  131 lines
  1. VERSION 2.00
  2. Begin Form APIMLOGO 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "ABOUT..."
  6.    ClientHeight    =   2445
  7.    ClientLeft      =   750
  8.    ClientTop       =   1755
  9.    ClientWidth     =   5775
  10.    ClipControls    =   0   'False
  11.    Height          =   2850
  12.    Left            =   690
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2430.091
  17.    ScaleMode       =   0  'User
  18.    ScaleWidth      =   5775
  19.    Top             =   1410
  20.    Width           =   5895
  21.    Begin SSPanel Panel3D1 
  22.       BevelWidth      =   2
  23.       Height          =   2445
  24.       Left            =   0
  25.       Outline         =   -1  'True
  26.       RoundedCorners  =   0   'False
  27.       TabIndex        =   3
  28.       Top             =   0
  29.       Width           =   5775
  30.       Begin PictureBox Logo2 
  31.          AutoSize        =   -1  'True
  32.          Height          =   510
  33.          Left            =   4950
  34.          Picture         =   APIMLOGO.FRX:0000
  35.          ScaleHeight     =   32
  36.          ScaleMode       =   3  'Pixel
  37.          ScaleWidth      =   32
  38.          TabIndex        =   6
  39.          Top             =   630
  40.          Width           =   510
  41.       End
  42.       Begin PictureBox Logo1 
  43.          AutoSize        =   -1  'True
  44.          Height          =   510
  45.          Left            =   270
  46.          Picture         =   APIMLOGO.FRX:0302
  47.          ScaleHeight     =   32
  48.          ScaleMode       =   3  'Pixel
  49.          ScaleWidth      =   32
  50.          TabIndex        =   5
  51.          Top             =   630
  52.          Width           =   510
  53.       End
  54.       Begin CommandButton btnOK 
  55.          BackColor       =   &H00C0C0C0&
  56.          Caption         =   "&Ok"
  57.          Height          =   375
  58.          Left            =   2250
  59.          TabIndex        =   4
  60.          Top             =   1890
  61.          Visible         =   0   'False
  62.          Width           =   1275
  63.       End
  64.       Begin Label Version 
  65.          Alignment       =   2  'Center
  66.          BackColor       =   &H00C0C0C0&
  67.          Caption         =   "Version 1.1"
  68.          ForeColor       =   &H00000000&
  69.          Height          =   195
  70.          Left            =   2160
  71.          TabIndex        =   7
  72.          Top             =   900
  73.          Width           =   1455
  74.       End
  75.       Begin Label ProgrName 
  76.          Alignment       =   2  'Center
  77.          BackColor       =   &H00C0C0C0&
  78.          Caption         =   "API Magic"
  79.          FontBold        =   -1  'True
  80.          FontItalic      =   0   'False
  81.          FontName        =   "MS Sans Serif"
  82.          FontSize        =   13.5
  83.          FontStrikethru  =   0   'False
  84.          FontUnderline   =   -1  'True
  85.          ForeColor       =   &H00000000&
  86.          Height          =   360
  87.          Left            =   1080
  88.          TabIndex        =   0
  89.          Top             =   450
  90.          Width           =   3615
  91.       End
  92.       Begin Label Copyright 
  93.          Alignment       =   2  'Center
  94.          BackColor       =   &H00C0C0C0&
  95.          Caption         =   "Copyright 
  96.  1995 M.J. Warwick"
  97.          ForeColor       =   &H00000000&
  98.          Height          =   195
  99.          Left            =   1080
  100.          TabIndex        =   1
  101.          Top             =   1200
  102.          Width           =   3615
  103.       End
  104.       Begin Label DistText 
  105.          Alignment       =   2  'Center
  106.          BackColor       =   &H00C0C0C0&
  107.          Caption         =   "Please Distribute Freely Without Modification Or Charge."
  108.          ForeColor       =   &H00000000&
  109.          Height          =   195
  110.          Left            =   90
  111.          TabIndex        =   2
  112.          Top             =   1530
  113.          Width           =   5625
  114.       End
  115.    End
  116. Option Explicit
  117. Sub btnOK_Click ()
  118. 'unload About window
  119. Unload Me
  120. End Sub
  121. Sub Form_Load ()
  122. 'centre form on screen
  123. Center_Form Me
  124. 'flag this form exists for animation purposes
  125. AboutLoaded = True
  126. End Sub
  127. Sub Form_Unload (Cancel As Integer)
  128. 'flag this form no longer exists
  129. AboutLoaded = False
  130. End Sub
  131.