【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：frmBusy.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    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