frmmessage.frm

基于化工行业造气岗位的自动化监控系统

VERSION 5.00
Begin VB.Form frmMessage 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "消息框"
   ClientHeight    =   1050
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   ControlBox      =   0   'False
   Icon            =   "frmMessage.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1050
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   8000
      Left            =   120
      Top             =   600
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定&O"
      Height          =   420
      Left            =   1665
      TabIndex        =   1
      Top             =   540
      Width           =   1320
   End
   Begin VB.Label lblMsg 
      Alignment       =   2  'Center
      ForeColor       =   &H000000FF&
      Height          =   330
      Left            =   45
      TabIndex        =   0
      Top             =   90
      Width           =   4605
   End
End
Attribute VB_Name = "frmMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
    Unload Me
End Sub