home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Homam_Anti21381012252008.psc / hAV / frmAbout.frm next >
Text File  |  2008-12-23  |  6KB  |  190 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About"
  6.    ClientHeight    =   4065
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   5385
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   178
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmAbout.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   4065
  24.    ScaleWidth      =   5385
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.PictureBox picControl 
  28.       BorderStyle     =   0  'None
  29.       Height          =   735
  30.       Left            =   0
  31.       ScaleHeight     =   735
  32.       ScaleWidth      =   5415
  33.       TabIndex        =   0
  34.       Top             =   3480
  35.       Width           =   5415
  36.       Begin VB.CommandButton cmdClose 
  37.          Cancel          =   -1  'True
  38.          Caption         =   "Close"
  39.          Default         =   -1  'True
  40.          Height          =   400
  41.          Left            =   4300
  42.          TabIndex        =   1
  43.          Top             =   105
  44.          Width           =   1000
  45.       End
  46.       Begin VB.Line Line1 
  47.          BorderColor     =   &H80000010&
  48.          X1              =   0
  49.          X2              =   5400
  50.          Y1              =   0
  51.          Y2              =   0
  52.       End
  53.       Begin VB.Line Line2 
  54.          BorderColor     =   &H80000005&
  55.          X1              =   0
  56.          X2              =   5400
  57.          Y1              =   15
  58.          Y2              =   15
  59.       End
  60.    End
  61.    Begin VB.Label lblVersion 
  62.       AutoSize        =   -1  'True
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "1.0.0.40"
  65.       Height          =   195
  66.       Left            =   1560
  67.       TabIndex        =   10
  68.       Top             =   480
  69.       Width           =   630
  70.    End
  71.    Begin VB.Label Label10 
  72.       AutoSize        =   -1  'True
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "humam_babi@hotmail.com"
  75.       Height          =   195
  76.       Left            =   960
  77.       TabIndex        =   9
  78.       Top             =   960
  79.       Width           =   1905
  80.    End
  81.    Begin VB.Label Label4 
  82.       AutoSize        =   -1  'True
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "2008 - Homam Babi"
  85.       Height          =   195
  86.       Left            =   960
  87.       TabIndex        =   8
  88.       Top             =   720
  89.       Width           =   1380
  90.    End
  91.    Begin VB.Label Label2 
  92.       AutoSize        =   -1  'True
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "Version:"
  95.       Height          =   195
  96.       Left            =   960
  97.       TabIndex        =   7
  98.       Top             =   480
  99.       Width           =   585
  100.    End
  101.    Begin VB.Label Label13 
  102.       AutoSize        =   -1  'True
  103.       BackStyle       =   0  'Transparent
  104.       Caption         =   "Homam Anti-Malware"
  105.       BeginProperty Font 
  106.          Name            =   "Tahoma"
  107.          Size            =   9
  108.          Charset         =   178
  109.          Weight          =   700
  110.          Underline       =   0   'False
  111.          Italic          =   0   'False
  112.          Strikethrough   =   0   'False
  113.       EndProperty
  114.       Height          =   210
  115.       Left            =   960
  116.       TabIndex        =   6
  117.       Top             =   240
  118.       Width           =   1980
  119.    End
  120.    Begin VB.Label Label14 
  121.       BackStyle       =   0  'Transparent
  122.       Caption         =   $"frmAbout.frx":000C
  123.       Height          =   855
  124.       Left            =   240
  125.       TabIndex        =   5
  126.       Top             =   1440
  127.       Width           =   4935
  128.    End
  129.    Begin VB.Label Label15 
  130.       BackStyle       =   0  'Transparent
  131.       Caption         =   "Thanks to my mom who ispired me with the idea"
  132.       Height          =   255
  133.       Left            =   240
  134.       TabIndex        =   4
  135.       Top             =   2400
  136.       Width           =   3615
  137.    End
  138.    Begin VB.Image Image3 
  139.       Height          =   270
  140.       Left            =   3720
  141.       Picture         =   "frmAbout.frx":010D
  142.       Top             =   2340
  143.       Width           =   270
  144.    End
  145.    Begin VB.Label Label16 
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   "I hope you like my program, and find it useful .."
  148.       Height          =   255
  149.       Left            =   240
  150.       TabIndex        =   3
  151.       Top             =   2760
  152.       Width           =   5055
  153.    End
  154.    Begin VB.Label Label17 
  155.       BackStyle       =   0  'Transparent
  156.       Caption         =   "Homam"
  157.       Height          =   255
  158.       Left            =   3960
  159.       TabIndex        =   2
  160.       Top             =   3000
  161.       Width           =   615
  162.    End
  163.    Begin VB.Image Image1 
  164.       Height          =   465
  165.       Left            =   240
  166.       Picture         =   "frmAbout.frx":01CF
  167.       Top             =   240
  168.       Width           =   465
  169.    End
  170. End
  171. Attribute VB_Name = "frmAbout"
  172. Attribute VB_GlobalNameSpace = False
  173. Attribute VB_Creatable = False
  174. Attribute VB_PredeclaredId = True
  175. Attribute VB_Exposed = False
  176. Option Explicit
  177. Private Sub cmdClose_Click()
  178.     frmNotify.mnuSettings.Enabled = True
  179.     Unload Me
  180. End Sub
  181. Private Sub Form_Load()
  182.     frmOptions.Enabled = False
  183.     lblVersion.Caption = " " & CStr(App.Major) & "." & CStr(App.Minor) & "." & CStr(App.Revision) & " "
  184. End Sub
  185. Private Sub Form_Unload(Cancel As Integer)
  186.     On Local Error Resume Next
  187.     frmOptions.Enabled = True
  188.     frmOptions.SetFocus
  189. End Sub
  190.