capacity.frm

I. A brief description of the aiNet application. II. How to set up the aiNet on your system. III. So

VERSION 4.00
Begin VB.Form Capacity 
   Caption         =   "Set New Capacity ..."
   ClientHeight    =   2652
   ClientLeft      =   876
   ClientTop       =   1416
   ClientWidth     =   3828
   Height          =   3036
   Left            =   828
   LinkTopic       =   "Capacity"
   ScaleHeight     =   2652
   ScaleWidth      =   3828
   Top             =   1080
   Width           =   3924
   Begin VB.TextBox NewCapacity 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   7.8
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   288
      Left            =   2520
      MaxLength       =   4
      TabIndex        =   9
      Top             =   1560
      Width           =   852
   End
   Begin VB.CommandButton CancelBtn 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   372
      Left            =   1920
      TabIndex        =   7
      Top             =   2040
      Width           =   1332
   End
   Begin VB.CommandButton OKBtn 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   372
      Left            =   360
      TabIndex        =   6
      Top             =   2040
      Width           =   1332
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      Caption         =   "Set new capacity to:"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   7.8
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   240
      TabIndex        =   8
      Top             =   1560
      Width           =   2172
   End
   Begin VB.Label FreeEntries 
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   7.8
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   2640
      TabIndex        =   5
      Top             =   1080
      Width           =   612
   End
   Begin VB.Label ModelVectors 
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   7.8
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   2640
      TabIndex        =   4
      Top             =   720
      Width           =   612
   End
   Begin VB.Label Capacity 
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   7.8
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   2640
      TabIndex        =   3
      Top             =   360
      Width           =   612
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "Number of free enties:"
      Height          =   252
      Left            =   360
      TabIndex        =   2
      Top             =   1080
      Width           =   2052
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "Number of model vectors:"
      Height          =   252
      Left            =   360
      TabIndex        =   1
      Top             =   720
      Width           =   2052
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Current Capacity:"
      Height          =   252
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   2052
   End
End
Attribute VB_Name = "Capacity"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub CancelBtn_Click()
    Hide
End Sub

Private Sub Form_Activate()
    NewCapacity.SetFocus
End Sub

Public Sub OkBtn_Click()
    Dim nc As Long
    Dim Txt As String
    nc = CLng(NewCapacity)
    If nc < 2 Or nc > 10000 Then
        Txt = "The new capacity must be in range of" + Chr(10) + "[2 ... 10000]!"
        MsgBox (Txt)
    Else
        Hide
        MainForm.Ret = nc
    End If
End Sub