home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Binary_Cre215404632009.psc / frmAbout.frm < prev    next >
Text File  |  2009-06-02  |  5KB  |  154 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Info"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   11940
  9.    Icon            =   "frmAbout.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3540
  14.    ScaleWidth      =   11940
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton cmdExit 
  17.       Caption         =   "OK"
  18.       Height          =   375
  19.       Left            =   5040
  20.       TabIndex        =   0
  21.       Top             =   3000
  22.       Width           =   1815
  23.    End
  24.    Begin VB.Image Image2 
  25.       Height          =   1965
  26.       Left            =   240
  27.       Picture         =   "frmAbout.frx":08CA
  28.       Stretch         =   -1  'True
  29.       Top             =   360
  30.       Width           =   2955
  31.    End
  32.    Begin VB.Label Label5 
  33.       Alignment       =   2  'Center
  34.       BackStyle       =   0  'Transparent
  35.       Caption         =   "DarkManSoft@gmail.com"
  36.       BeginProperty Font 
  37.          Name            =   "Times New Roman"
  38.          Size            =   15.75
  39.          Charset         =   0
  40.          Weight          =   700
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   495
  46.       Left            =   3000
  47.       TabIndex        =   5
  48.       Top             =   2280
  49.       Width           =   5925
  50.    End
  51.    Begin VB.Label Label4 
  52.       Alignment       =   2  'Center
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Contact: frank.donckers@gmail.com"
  55.       BeginProperty Font 
  56.          Name            =   "Times New Roman"
  57.          Size            =   15.75
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   495
  65.       Left            =   3000
  66.       TabIndex        =   4
  67.       Top             =   1800
  68.       Width           =   5970
  69.    End
  70.    Begin VB.Label Label1 
  71.       Alignment       =   2  'Center
  72.       AutoSize        =   -1  'True
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "Binary Creations"
  75.       BeginProperty Font 
  76.          Name            =   "Times New Roman"
  77.          Size            =   15.75
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   -1  'True
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   360
  85.       Left            =   600
  86.       TabIndex        =   3
  87.       Top             =   2400
  88.       Width           =   2295
  89.    End
  90.    Begin VB.Label Label2 
  91.       Alignment       =   2  'Center
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "Programed by Frank Donckers"
  94.       BeginProperty Font 
  95.          Name            =   "Times New Roman"
  96.          Size            =   15.75
  97.          Charset         =   0
  98.          Weight          =   700
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Height          =   495
  104.       Left            =   3000
  105.       TabIndex        =   2
  106.       Top             =   1200
  107.       Width           =   5940
  108.    End
  109.    Begin VB.Label Label3 
  110.       Alignment       =   2  'Center
  111.       BackStyle       =   0  'Transparent
  112.       Caption         =   "⌐ Copyright Darkman Software 2009"
  113.       BeginProperty Font 
  114.          Name            =   "Times New Roman"
  115.          Size            =   15.75
  116.          Charset         =   0
  117.          Weight          =   700
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       Height          =   495
  123.       Left            =   3000
  124.       TabIndex        =   1
  125.       Top             =   720
  126.       Width           =   5940
  127.    End
  128.    Begin VB.Image Image1 
  129.       Height          =   2700
  130.       Left            =   9000
  131.       Picture         =   "frmAbout.frx":251E
  132.       Top             =   360
  133.       Width           =   2520
  134.    End
  135. End
  136. Attribute VB_Name = "frmAbout"
  137. Attribute VB_GlobalNameSpace = False
  138. Attribute VB_Creatable = False
  139. Attribute VB_PredeclaredId = True
  140. Attribute VB_Exposed = False
  141. Option Explicit
  142.  
  143. Private Sub cmdExit_Click()
  144.     Me.Hide
  145. End Sub
  146.  
  147. Private Sub Form_Activate()
  148.     Label1 = "Binary Creations" & " " & App.Major & "." & App.Minor & "." & App.Revision
  149. End Sub
  150.  
  151. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  152.     Me.Hide
  153. End Sub
  154.