VERSION 5.00
Begin VB.Form Perf 
   BorderStyle     =   3  'Œ޲۸
   Caption         =   "̫ݽ"
   ClientHeight    =   2595
   ClientLeft      =   1140
   ClientTop       =   1545
   ClientWidth     =   4230
   LinkTopic       =   "Perf"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   2595
   ScaleWidth      =   4230
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton OK 
      Caption         =   "OK"
      Height          =   375
      Left            =   1140
      TabIndex        =   10
      Top             =   2160
      Width           =   1515
   End
   Begin VB.Label Label10 
      Alignment       =   2  '
      Caption         =   "ŏ(޲)"
      Height          =   255
      Left            =   1140
      TabIndex        =   15
      Top             =   1440
      Width           =   1575
   End
   Begin VB.Label Label9 
      Alignment       =   2  '
      Caption         =   "ő(޲)"
      Height          =   255
      Left            =   2640
      TabIndex        =   14
      Top             =   1440
      Width           =   1515
   End
   Begin VB.Label Label8 
      Caption         =   "ܰݸ޾"
      Height          =   255
      Left            =   60
      TabIndex        =   13
      Top             =   1740
      Width           =   1005
   End
   Begin VB.Label MinWorkingSet 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   1140
      TabIndex        =   12
      Top             =   1680
      Width           =   1515
   End
   Begin VB.Label MaxWorkingSet 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   2640
      TabIndex        =   11
      Top             =   1680
      Width           =   1515
   End
   Begin VB.Label KernelCPUPercent 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   2640
      TabIndex        =   9
      Top             =   660
      Width           =   1515
   End
   Begin VB.Label UserCPUPercent 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   2640
      TabIndex        =   8
      Top             =   360
      Width           =   1515
   End
   Begin VB.Label TotalCPUTime 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   1140
      TabIndex        =   7
      Top             =   960
      Width           =   1515
   End
   Begin VB.Label KernelCPUTime 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   1140
      TabIndex        =   6
      Top             =   660
      Width           =   1515
   End
   Begin VB.Label UserCPUTime 
      Alignment       =   1  'E
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  '
      Height          =   300
      Left            =   1140
      TabIndex        =   5
      Top             =   360
      Width           =   1515
   End
   Begin VB.Label Label5 
      Caption         =   "Total"
      Height          =   255
      Left            =   60
      TabIndex        =   4
      Top             =   1020
      Width           =   1005
   End
   Begin VB.Label Label4 
      Caption         =   "Ӱ"
      Height          =   255
      Left            =   60
      TabIndex        =   3
      Top             =   720
      Width           =   1005
   End
   Begin VB.Label Label3 
      Caption         =   "հӰ"
      Height          =   255
      Left            =   60
      TabIndex        =   2
      Top             =   420
      Width           =   1005
   End
   Begin VB.Label Label2 
      Caption         =   "CPUgp(%)"
      Height          =   255
      Left            =   3060
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "CPUgp(ؕb)"
      Height          =   255
      Left            =   1140
      TabIndex        =   0
      Top             =   120
      Width           =   1575
   End
End
Attribute VB_Name = "Perf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' JAPI TvvO
'   (C)NEC Corporation/NEC Software,Ltd. 1995,1996
'
'         1996.6.28 Created by NEC Software
'
' ptH[}X_CAOW[
'
'   FWúAptH[}X\
'

'[ptH[}X_CAO]\
'
'   FCPUgpԁACPUgp\
'
Private Sub Form_Load()
    'CPUgpԕ\
    UserCPUTime.Caption = JobInfo.dwUserCPUTime
    KernelCPUTime.Caption = JobInfo.dwKernelCPUTime
    TotalCPUTime.Caption = JobInfo.dwTotalCPUTime
    
    'CPUgp\
    UserCPUPercent.Caption = JobInfo.dwUserCPUPercent
    KernelCPUPercent.Caption = 100 - JobInfo.dwUserCPUPercent

    'WorkingsetSize\
    MinWorkingSet.Caption = JobInfo.dwMinWorkingSet
    MaxWorkingSet.Caption = JobInfo.dwMaxWorkingSet
End Sub


'[OK{^]NbN
'
'   FptH[}X_CAOI
'
Private Sub OK_Click()
    '_CAO
    Unload Perf
End Sub


