【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“frmAddToLog.frm”一文，供大家参考学习

    VERSION 5.00
    Begin VB.Form frmAddToLog 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "添加系统日志信息"
       ClientHeight    =   3570
       ClientLeft      =   2760
       ClientTop       =   3750
       ClientWidth     =   5520
       Icon            =   "frmAddToLog.frx":0000
       LinkTopic       =   "Form1"
       LockControls    =   -1  'True
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   3570
       ScaleWidth      =   5520
       ShowInTaskbar   =   0   'False
       StartUpPosition =   1  '所有者中心
       Begin VB.TextBox Text1 
          BackColor       =   &H80000008&
          ForeColor       =   &H80000005&
          Height          =   2370
          Left            =   180
          MultiLine       =   -1  'True
          ScrollBars      =   2  'Vertical
          TabIndex        =   0
          Top             =   435
          Width           =   5145
       End
       Begin VB.CommandButton CancelButton 
          Cancel          =   -1  'True
          Caption         =   "取消(&C)"
          Height          =   465
          Left            =   3900
          TabIndex        =   2
          Top             =   2940
          Width           =   1245
       End
       Begin VB.CommandButton OKButton 
          Caption         =   "确定(&O)"
          Default         =   -1  'True
          Height          =   465
          Left            =   2310
          TabIndex        =   1
          Top             =   2940
          Width           =   1245
       End
       Begin VB.Label Label1 
          AutoSize        =   -1  'True
          Caption         =   "添加系统日志"
          Height          =   180
          Left            =   180
          TabIndex        =   3
          Top             =   150
          Width           =   1080
       End
    End
    Attribute VB_Name = "frmAddToLog"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    Public sysInfo As String
    Private Sub CancelButton_Click()
        sysInfo = ""
        Unload Me
    End Sub
    
    Private Sub OKButton_Click()
        sysInfo = Text1.Text
        Unload Me
    End Sub