frmmsgbox.frm

VB远程操作Sql Server 2000数据库的工具 主要功能就是远程（局域网）操作Sql Server数据库。 包括： 搜索并列举局域网内的所有Sql Server服务器 搜索并列举Sql

VERSION 5.00
Begin VB.Form FrmMsgbox 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ToolForSQL2000"
   ClientHeight    =   1155
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6165
   Icon            =   "FrmMsgbox.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1155
   ScaleWidth      =   6165
   StartUpPosition =   2  '屏幕中心
   Begin ToolForSQL2000.ucProgressBar ucProgressBar1 
      Height          =   225
      Left            =   240
      Top             =   720
      Visible         =   0   'False
      Width           =   5670
      _ExtentX        =   10001
      _ExtentY        =   397
      BarPictureFore  =   "FrmMsgbox.frx":0442
      BarPictureBack  =   "FrmMsgbox.frx":4726
      CaptionFormat   =   5
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      FontColor       =   0
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   240
      Picture         =   "FrmMsgbox.frx":8A0A
      Top             =   120
      Width           =   480
   End
   Begin VB.Label LabelInfor 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      Height          =   780
      Left            =   960
      TabIndex        =   0
      Top             =   240
      Width           =   4980
   End
End
Attribute VB_Name = "FrmMsgbox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Resize()

  SetTopMostWindow Me.hwnd, True '使窗体位于最顶端
  Me.Refresh
End Sub
'
Private Sub LabelInfor_Click()

End Sub