【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了frmCenter.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
    Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
    Begin VB.Form frmCenter 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "控制台"
       ClientHeight    =   6420
       ClientLeft      =   1515
       ClientTop       =   1245
       ClientWidth     =   8745
       LinkTopic       =   "Form1"
       LockControls    =   -1  'True
       MaxButton       =   0   'False
       MDIChild        =   -1  'True
       MinButton       =   0   'False
       ScaleHeight     =   6310.991
       ScaleMode       =   0  'User
       ScaleWidth      =   8883.81
       ShowInTaskbar   =   0   'False
       Begin MSComctlLib.ImageList ImlSmall 
          Left            =   3060
          Top             =   5760
          _ExtentX        =   1005
          _ExtentY        =   1005
          BackColor       =   -2147483643
          ImageWidth      =   20
          ImageHeight     =   20
          MaskColor       =   12632256
          UseMaskColor    =   0   'False
          _Version        =   393216
          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
             NumListImages   =   2
             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmCenter.frx":0000
                Key             =   "Company"
             EndProperty
             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmCenter.frx":0714
                Key             =   "Case"
             EndProperty
          EndProperty
       End
       Begin MSComctlLib.ImageList ImlBig 
          Left            =   2220
          Top             =   5790
          _ExtentX        =   1005
          _ExtentY        =   1005
          BackColor       =   -2147483643
          ImageWidth      =   24
          ImageHeight     =   24
          MaskColor       =   12632256
          UseMaskColor    =   0   'False
          _Version        =   393216
          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
             NumListImages   =   2
             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmCenter.frx":0E28
                Key             =   "Company"
             EndProperty
             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "frmCenter.frx":153C
                Key             =   "Case"
             EndProperty
          EndProperty
       End
       Begin TabDlg.SSTab SSTab1 
          Height          =   5715
          Left            =   30
          TabIndex        =   0
          Top             =   0
          Width           =   8715
          _ExtentX        =   15372
          _ExtentY        =   10081
          _Version        =   393216
          Style           =   1
          Tab             =   1
          TabsPerRow      =   4
          TabHeight       =   520
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          TabCaption(0)   =   "选择企业"
          TabPicture(0)   =   "frmCenter.frx":1C50
          Tab(0).ControlEnabled=   0   'False
          Tab(0).Control(0)=   "lblCaption11"
          Tab(0).Control(0).Enabled=   0   'False
          Tab(0).Control(1)=   "lblCaption12"
          Tab(0).Control(1).Enabled=   0   'False
          Tab(0).Control(2)=   "cmdAllDelete"
          Tab(0).Control(2).Enabled=   0   'False
          Tab(0).Control(3)=   "cmdAllRight"
          Tab(0).Control(3).Enabled=   0   'False
          Tab(0).Control(4)=   "tvCompany"
          Tab(0).Control(4).Enabled=   0   'False
          Tab(0).Control(5)=   "lstSeleCompany"
          Tab(0).Control(5).Enabled=   0   'False
          Tab(0).Control(6)=   "frmSplitterQY"
          Tab(0).Control(6).Enabled=   0   'False
          Tab(0).Control(7)=   "cmdSaveSeleComp"
          Tab(0).Control(7).Enabled=   0   'False
          Tab(0).Control(8)=   "txtQYBM"
          Tab(0).Control(8).Enabled=   0   'False
          Tab(0).Control(9)=   "cmdOneRight1"
          Tab(0).Control(9).Enabled=   0   'False
          Tab(0).Control(10)=   "cmdOneDelete1"
          Tab(0).Control(10).Enabled=   0   'False
          Tab(0).ControlCount=   11
          TabCaption(1)   =   "选择文书"
          TabPicture(1)   =   "frmCenter.frx":1C6C
          Tab(1).ControlEnabled=   -1  'True
          Tab(1).Control(0)=   "lblCaption2"
          Tab(1).Control(0).Enabled=   0   'False
          Tab(1).Control(1)=   "Label2"
          Tab(1).Control(1).Enabled=   0   'False
          Tab(1).Control(2)=   "cmdAllDelete2"
          Tab(1).Control(2).Enabled=   0   'False
          Tab(1).Control(3)=   "cmdAllRight2"
          Tab(1).Control(3).Enabled=   0   'False
          Tab(1).Control(4)=   "tvCase"
          Tab(1).Control(4).Enabled=   0   'False
          Tab(1).Control(5)=   "lstSeleCase"
          Tab(1).Control(5).Enabled=   0   'False
          Tab(1).Control(6)=   "cmdSaveSeleCase"
          Tab(1).Control(6).Enabled=   0   'False
          Tab(1).Control(7)=   "txtCase"
          Tab(1).Control(7).Enabled=   0   'False
          Tab(1).Control(8)=   "cmdOneDelete2"
          Tab(1).Control(8).Enabled=   0   'False
          Tab(1).Control(9)=   "cmdOneRight2"
          Tab(1).Control(9).Enabled=   0   'False
          Tab(1).Control(10)=   "frmSplitterCase"
          Tab(1).Control(10).Enabled=   0   'False
          Tab(1).ControlCount=   11
          TabCaption(2)   =   "预设方式"
          TabPicture(2)   =   "frmCenter.frx":1C88
          Tab(2).ControlEnabled=   0   'False
          Tab(2).Control(0)=   "frmSelectCorp"
          Tab(2).Control(0).Enabled=   0   'False
          Tab(2).Control(1)=   "frmSelectCase"
          Tab(2).Control(1).Enabled=   0   'False
          Tab(2).ControlCount=   2
          Begin VB.Frame frmSplitterCase 
             Height          =   4635
             Left            =   4260
             MouseIcon       =   "frmCenter.frx":1CA4
             MousePointer    =   99  'Custom
             TabIndex        =   9
             Top             =   990
             Width           =   100
          End
          Begin VB.CommandButton cmdOneDelete1 
             Caption         =   "×"
             BeginProperty Font