generate.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 Generate 
   Caption         =   "Generate Model Vectors ..."
   ClientHeight    =   2352
   ClientLeft      =   876
   ClientTop       =   1416
   ClientWidth     =   5796
   Height          =   2736
   Left            =   828
   LinkTopic       =   "Form1"
   ScaleHeight     =   2352
   ScaleWidth      =   5796
   Top             =   1080
   Width           =   5892
   Begin VB.CommandButton CancelBtn 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   372
      Left            =   3360
      TabIndex        =   3
      Top             =   1680
      Width           =   1452
   End
   Begin VB.CommandButton GenerateBtn 
      Caption         =   "Generate"
      Default         =   -1  'True
      Height          =   372
      Left            =   840
      TabIndex        =   2
      Top             =   1680
      Width           =   1452
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Height          =   1212
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   5292
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "This command will fill all free entries in the model with randomly generated model vectors in the square. This will make the model more accurate!"
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   1
            weight          =   700
            size            =   7.8
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   852
         Left            =   360
         TabIndex        =   1
         Top             =   240
         Width           =   4572
      End
   End
End
Attribute VB_Name = "Generate"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub CancelBtn_Click()
    MainForm.Ret = 0
    Hide
End Sub

Private Sub GenerateBtn_Click()
    MainForm.Ret = 1
    Hide
End Sub