VERSION 4.00
Begin VB.Form frmInfo 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Object Information"
   ClientHeight    =   1125
   ClientLeft      =   2670
   ClientTop       =   1590
   ClientWidth     =   3090
   BeginProperty Font 
      name            =   "Courier New"
      charset         =   1
      weight          =   400
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   Height          =   1530
   Left            =   2610
   LinkTopic       =   "Form1"
   ScaleHeight     =   1125
   ScaleWidth      =   3090
   Top             =   1245
   Width           =   3210
   Begin VB.CommandButton cmd 
      Caption         =   "Close"
      Default         =   -1  'True
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   8.25
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   900
      TabIndex        =   0
      Top             =   630
      Width           =   1185
   End
Attribute VB_Name = "frmInfo"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
'*********************************************************************
' FRMINFO.FRM - This is essentially a "stupid" dialog used by
'               frmExcel. Its only purpose is to display information.
'*********************************************************************
Option Explicit
'*********************************************************************
' Inialize the form so that it can hold 10, 40 char lines.
'*********************************************************************
Private Sub Form_Load()
    '*****************************************************************
    ' Get the height and width of a character to set the form size.
    '*****************************************************************
    Width = TextWidth(String(50, "X"))
    Height = TextHeight("X") * 14
    '*****************************************************************
    ' Move the command button to the bottom center of the form.
    '*****************************************************************
    cmd.Move (ScaleWidth - cmd.Width) / 2, ScaleHeight - cmd.Height - 10
    Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
End Sub
'*********************************************************************
' Always unload this form, since it loads so fast.
'*********************************************************************
Private Sub cmd_Click()
    Unload Me
End Sub