home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / DM_CSS_Scr187222452005.psc / forms / frmabout.frm next >
Text File  |  2005-04-06  |  3KB  |  113 lines
  1. VERSION 5.00
  2. Begin VB.Form frmabout 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "About"
  5.    ClientHeight    =   2265
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2265
  13.    ScaleWidth      =   4680
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.CommandButton cmdok 
  17.       Caption         =   "OK"
  18.       Height          =   360
  19.       Left            =   3555
  20.       TabIndex        =   5
  21.       Top             =   1800
  22.       Width           =   1005
  23.    End
  24.    Begin VB.PictureBox Picture1 
  25.       Align           =   1  'Align Top
  26.       BackColor       =   &H00FFFFFF&
  27.       BorderStyle     =   0  'None
  28.       Height          =   870
  29.       Left            =   0
  30.       ScaleHeight     =   870
  31.       ScaleWidth      =   4680
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   4680
  35.       Begin VB.Label Label2 
  36.          BackStyle       =   0  'Transparent
  37.          Caption         =   "Create and design your own colofull scrollbar for Internet Explorer."
  38.          Height          =   405
  39.          Left            =   720
  40.          TabIndex        =   2
  41.          Top             =   390
  42.          Width           =   3675
  43.       End
  44.       Begin VB.Label Label1 
  45.          BackStyle       =   0  'Transparent
  46.          Caption         =   "DM CSS Scrollbar Designer Plus"
  47.          BeginProperty Font 
  48.             Name            =   "MS Sans Serif"
  49.             Size            =   8.25
  50.             Charset         =   0
  51.             Weight          =   700
  52.             Underline       =   0   'False
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          Height          =   240
  57.          Left            =   690
  58.          TabIndex        =   1
  59.          Top             =   150
  60.          Width           =   2790
  61.       End
  62.       Begin VB.Image Image1 
  63.          Height          =   480
  64.          Left            =   75
  65.          Picture         =   "frmabout.frx":0000
  66.          Top             =   90
  67.          Width           =   480
  68.       End
  69.    End
  70.    Begin VB.Label Label3 
  71.       AutoSize        =   -1  'True
  72.       Caption         =   "Designed by Ben Jones"
  73.       Height          =   195
  74.       Index           =   1
  75.       Left            =   1650
  76.       TabIndex        =   4
  77.       Top             =   1245
  78.       Width           =   1680
  79.    End
  80.    Begin VB.Label Label3 
  81.       AutoSize        =   -1  'True
  82.       Caption         =   "THIS PROGRAM IS FREEWARE"
  83.       Height          =   195
  84.       Index           =   0
  85.       Left            =   120
  86.       TabIndex        =   3
  87.       Top             =   990
  88.       Width           =   2400
  89.    End
  90.    Begin VB.Line Line1 
  91.       X1              =   0
  92.       X2              =   1695
  93.       Y1              =   870
  94.       Y2              =   870
  95.    End
  96. End
  97. Attribute VB_Name = "frmabout"
  98. Attribute VB_GlobalNameSpace = False
  99. Attribute VB_Creatable = False
  100. Attribute VB_PredeclaredId = True
  101. Attribute VB_Exposed = False
  102. Private Sub cmdok_Click()
  103.     Unload frmabout
  104. End Sub
  105.  
  106. Private Sub Form_Load()
  107.     Line1.X2 = frmabout.Width
  108. End Sub
  109.  
  110. Private Sub Form_Unload(Cancel As Integer)
  111.     Set frmabout = Nothing
  112. End Sub
  113.