about.frm

来自「一个用vb做的扫雷源马」· FRM 代码 · 共 75 行

VERSION 4.00
Begin VB.Form frmAboutBox 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "About WinMine"
   ClientHeight    =   2085
   ClientLeft      =   5685
   ClientTop       =   3030
   ClientWidth     =   3585
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   Height          =   2490
   Left            =   5625
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2085
   ScaleWidth      =   3585
   Top             =   2685
   Width           =   3705
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "OK"
      Height          =   525
      Left            =   1200
      TabIndex        =   0
      Top             =   1290
      Width           =   1245
   End
   Begin VB.Label lblAbout 
      Alignment       =   2  'Center
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   0
         weight          =   700
         size            =   9.75
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   2070
      Left            =   -15
      TabIndex        =   1
      Top             =   0
      Width           =   3600
   End
End
Attribute VB_Name = "frmAboutBox"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub cmdOK_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    
    Dim CRLF As String
    CRLF = Chr$(13) & Chr$(10)
    
    Dim Msg As String
    Msg = CRLF & CRLF & "Author: S.Ramani" & CRLF
    Msg = Msg & "Copyright (c) 1995 Microsoft Corp."
    
    lblAbout.Caption = Msg

End Sub