vbAccelerator - Contents of code file: fTest.frm

VERSION 5.00
Begin VB.Form fTest 
   Caption         =   "Tiled Child"
   ClientHeight    =   4365
   ClientLeft      =   3705
   ClientTop       =   2820
   ClientWidth     =   8070
   Icon            =   "fTest.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4365
   ScaleWidth      =   8070
   Begin VB.TextBox txtFile 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3915
      Left            =   60
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   360
      Width           =   7995
   End
   Begin VB.Label lblFile 
      Height          =   255
      Left            =   60
      TabIndex        =   0
      Top             =   120
      Width           =   7995
   End
End
Attribute VB_Name = "fTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_cFB As New cFormBackground

Private Sub Form_Load()
Dim iFile As Long
Dim sFile As String
On Error GoTo FormLoadError
    With m_cFB
        .Init Me
        .Tile.filename = App.Path & "\parchmtd.jpg"
    End With
    lblFile = App.Path & "\cTile.cls"
    iFile = FreeFile
    Open lblFile.Caption For Binary Access Read Lock Write As #iFile
    sFile = String$(LOF(iFile), 0)
    Get #iFile, , sFile
    Close #iFile
    txtFile.Text = sFile
    Exit Sub
FormLoadError:
    Close #iFile
    Exit Sub
End Sub

Private Sub Form_Resize()
On Error Resume Next
    txtFile.Move txtFile.Left, txtFile.Top, Me.ScaleWidth - txtFile.Left * 2,
     Me.ScaleHeight - txtFile.Top - 4 * Screen.TwipsPerPixelY
End Sub