home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconalb / helpform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-17  |  2.5 KB  |  81 lines
  1. VERSION 4.00
  2. Begin VB.Form HelpForm 
  3.    BackColor       =   &H8000000A&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Helpfile"
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   2550
  8.    ClientTop       =   750
  9.    ClientWidth     =   8010
  10.    Height          =   7320
  11.    Left            =   2490
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   6915
  16.    ScaleWidth      =   8010
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   405
  19.    Width           =   8130
  20.    Begin VB.TextBox Text1 
  21.       BackColor       =   &H00C0C0C0&
  22.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   9.75
  25.          Charset         =   0
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H00800080&
  32.       Height          =   6540
  33.       Left            =   45
  34.       MultiLine       =   -1  'True
  35.       ScrollBars      =   2  'Vertical
  36.       TabIndex        =   0
  37.       Text            =   "HelpForm.frx":0000
  38.       Top             =   360
  39.       Width           =   7935
  40.    End
  41.    Begin VB.PictureBox Picture1 
  42.       BackColor       =   &H00C0C0C0&
  43.       BorderStyle     =   0  'None
  44.       Height          =   240
  45.       Left            =   6660
  46.       ScaleHeight     =   240
  47.       ScaleWidth      =   330
  48.       TabIndex        =   1
  49.       Top             =   45
  50.       Width           =   330
  51.    End
  52.    Begin VB.Label Label1 
  53.       Caption         =   "IconAlbumDeluxe"
  54.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   9.75
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       ForeColor       =   &H00800000&
  64.       Height          =   285
  65.       Left            =   90
  66.       TabIndex        =   2
  67.       Top             =   45
  68.       Width           =   3210
  69.    End
  70. Attribute VB_Name = "HelpForm"
  71. Attribute VB_Creatable = False
  72. Attribute VB_Exposed = False
  73. Private Sub Form_Load()
  74. Open IBpath + "\helpfile.txt" For Input As #1
  75. HelpForm.Text1.Text = Input(LOF(1), 1)
  76. Close #1
  77. End Sub
  78. Private Sub Text1_GotFocus()
  79. Picture1.SetFocus
  80. End Sub
  81.