frmbusy.frm

这是基于MapX4.0的房屋测绘管理信息系统

VERSION 5.00
Begin VB.Form frmBusy 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   1245
   ClientLeft      =   2760
   ClientTop       =   3465
   ClientWidth     =   6030
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1245
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Image Image1 
      Height          =   675
      Left            =   180
      Picture         =   "frmBusy.frx":0000
      Top             =   225
      Width           =   900
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Label1"
      Height          =   420
      Left            =   1275
      TabIndex        =   0
      Top             =   405
      Width           =   4515
   End
End
Attribute VB_Name = "frmBusy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim msTips As String
Private Sub Form_Load()
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Me.Show
    Label1 = msTips
End Sub
'设置提示信息
Public Property Let Message(ByVal sMessage As String)
    msTips = sMessage
End Property