【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，frmError.frm，希望对大家有所帮助！

    VERSION 5.00
    Begin VB.Form frmError 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "错误"
       ClientHeight    =   2595
       ClientLeft      =   2760
       ClientTop       =   3750
       ClientWidth     =   5955
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   2595
       ScaleWidth      =   5955
       ShowInTaskbar   =   0   'False
       Begin VB.TextBox txtErrorDes 
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   735
          Left            =   240
          MultiLine       =   -1  'True
          TabIndex        =   4
          Text            =   "frmError.frx":0000
          Top             =   960
          Width           =   5535
       End
       Begin VB.CommandButton cmdOk 
          Caption         =   "确定"
          Height          =   375
          Left            =   4680
          TabIndex        =   2
          Top             =   2040
          Width           =   1095
       End
       Begin VB.Label Label1 
          AutoSize        =   -1  'True
          Caption         =   "如有疑问，请联系管理员！"
          Height          =   195
          Left            =   240
          TabIndex        =   3
          Top             =   1920
          Width           =   2160
       End
       Begin VB.Label labErrorPos 
          AutoSize        =   -1  'True
          Caption         =   "labErrorPos"
          Height          =   195
          Left            =   240
          TabIndex        =   1
          Top             =   600
          Width           =   810
       End
       Begin VB.Label labErrorNo 
          AutoSize        =   -1  'True
          Caption         =   "labErrorNo"
          Height          =   195
          Left            =   240
          TabIndex        =   0
          Top             =   240
          Width           =   750
       End
    End
    Attribute VB_Name = "frmError"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    '* ============================================================================
    '* 窗体名称:   frmError
    '* ============================================================================
    '* 描述：错误信息显示对话框
    '* 设计者：
    '* 实现人：
    '* 实现时间：
    '* 修改记录：
    '*          修改人：
    '*          修改时间：
    '*          修改内容：
    '* ============================================================================
    
    
    Option Explicit
    
    '* 私有变量声明：
    
    '*   名称：m_str_ErrorNo
    '*   类型：String
    '*   意义：错误号
    '*   备注：
    Private m_str_ErrorNo As String
    
    '*   名称：m_str_ErrorPos
    '*   类型：String
    '*   意义：错误位置
    '*   备注：
    Private m_str_ErrorPos As String
    
    '*   名称：m_str_ErrorDes
    '*   类型：String
    '*   意义：错误描述
    '*   备注：
    Private m_str_ErrorDes As String
    
    '*   名称：ErrorNo
    '*   操作：Get
    '*   功能：读取错误号
    '*   变量：m_str_ErrorNo
    '*   输入：无
    '*   描述：
    Public Property Get ErrorNo() As String
        ErrorNo = m_str_ErrorNo
    End Property
    
    '*   名称：ErrorNo
    '*   操作：Let
    '*   功能：设置错误号
    '*   变量：m_str_ErrorNo
    '*   输入：缺省
    '*   描述：
    Public Property Let ErrorNo(ByVal vData As String)
        m_str_ErrorNo = vData
    End Property
    
    '*   名称：ErrorPos
    '*   操作：Get
    '*   功能：读取错误位置
    '*   变量：m_str_ErrorPos
    '*   输入：无
    '*   描述：
    Public Property Get ErrorPos() As String
        ErrorPos = m_str_ErrorPos
    End Property
    
    '*   名称：ErrorPos
    '*   操作：Let
    '*   功能：设置错误位置
    '*   变量：m_str_ErrorPos
    '*   输入：缺省
    '*   描述：
    Public Property Let ErrorPos(ByVal vData As String)
        m_str_ErrorPos = vData
    End Property
    
    '*   名称：ErrorDes
    '*   操作：Get
    '*   功能：读取错误描述
    '*   变量：m_str_ErrorDes
    '*   输入：无
    '*   描述：
    Public Property Get ErrorDes() As String
        ErrorDes = m_str_ErrorDes
    End Property
    
    '*   名称：ErrorDes
    '*   操作：Let
    '*   功能：设置错误描述
    '*   变量：m_str_ErrorDes
    '*   输入：缺省
    '*   描述：
    Public Property Let ErrorDes(ByVal vData As String)
        m_str_ErrorDes = vData
    End Property
    '卸载对话框
    Private Sub cmdOk_Click()
        Unload Me
    End Sub
    
    Private Sub Form_Load()
        '设置标签内容为传递过来的错误信息
        labErrorNo = m_str_ErrorNo
        labErrorPos = m_str_ErrorPos
        txtErrorDes.Text = m_str_ErrorDes
    End Sub