nhb888.frm

能分班系统采用Z线分班方法：即由系统自动抽签(也可由班主任抽签)

VERSION 5.00
Begin VB.Form nhb888 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   ClientHeight    =   5295
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   7725
   ControlBox      =   0   'False
   Icon            =   "NHB888.frx":0000
   LinkTopic       =   "Form9"
   MaxButton       =   0   'False
   MouseIcon       =   "NHB888.frx":08CA
   MousePointer    =   99  'Custom
   ScaleHeight     =   5295
   ScaleWidth      =   7725
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "退 出"
      Height          =   465
      Left            =   6480
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   4710
      Width           =   1125
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   735
      Left            =   3810
      TabIndex        =   1
      Top             =   1710
      Width           =   1185
   End
   Begin VB.Image Image1 
      Height          =   5325
      Left            =   0
      Picture         =   "NHB888.frx":0BD4
      Stretch         =   -1  'True
      Top             =   0
      Width           =   7755
   End
End
Attribute VB_Name = "nhb888"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    On Error Resume Next

    Unload Me
End Sub

Private Sub Label1_Click()
    Frmschname.Show 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Timer1.Enabled = False
End Sub