frmabout.frm

Tsplitter是一个类

VERSION 5.00
Begin VB.Form frmAbout 
   Caption         =   "About"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmOk 
      DisabledPicture =   "frmAbout.frx":0000
      DownPicture     =   "frmAbout.frx":0172
      Height          =   495
      Left            =   1680
      Picture         =   "frmAbout.frx":06A4
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   2520
      Width           =   1335
   End
   Begin VB.Line Line1 
      BorderColor     =   &H8000000D&
      BorderStyle     =   6  'Inside Solid
      X1              =   120
      X2              =   4560
      Y1              =   2160
      Y2              =   2160
   End
   Begin VB.Label lblCopyRight 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      Caption         =   "Label1"
      ForeColor       =   &H80000008&
      Height          =   195
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   4095
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const strCaption As String = "TSplitter"
Const strAutore As String = "Maurizio Fassina"
Const strAnno As String = "1999"
Const strVersione As String = "v. 1.0"
Const strEmail As String = "[e-mail]"

Private Sub cmOk_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Me.Caption = strCaption
    lblCopyRight.Caption = "The Program " + strCaption + _
                          " is realised by:" + vbCrLf + vbCrLf + _
                          strAutore + vbCrLf + vbCrLf + _
                          "e-mail: " + strEmail
                          
End Sub