Difficulté avec ImportVBProject

[Charles Trois-2]

Bonjour!

J'ai installé ImportVBProject et j'essaie de m'en servir. Dans le
dialogue, je donne le nom du fichier VB à convertir et celui du projet
Gambas à créer. Puis je clique sur le bouton OK, mais là rien ne va
plus. J'ai un message d'erreur:

[43] Access forbidden. FImportProject.?.0

Je trouve cela bizarre, étant donné que tous les fichiers en cause
appartiennent à l'utilisateur et ont pour permissions rw-r--r--.

Où dois-je chercher la faute?

Merci pour toute suggestion.

Charles


-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Gambas-user-fr mailing list
Gambas-user-fr@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

[GarulfoUnix]

Le Friday 25 April 2008 13:10:38 Charles Trois, vous avez écrit :

> Bonjour!
>
> J'ai installé ImportVBProject et j'essaie de m'en servir. Dans le
> dialogue, je donne le nom du fichier VB à convertir et celui du projet
> Gambas à créer. Puis je clique sur le bouton OK, mais là rien ne va
> plus. J'ai un message d'erreur:
>
> [43] Access forbidden. FImportProject.?.0
>
> Je trouve cela bizarre, étant donné que tous les fichiers en cause
> appartiennent à l'utilisateur et ont pour permissions rw-r--r--.
>
> Où dois-je chercher la faute?
>
> Merci pour toute suggestion.
>
> Charles
>

Quelle distribution Linux utilises-tu ?
Comment as-tu installé Gambas 2 ?

>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Don't miss this year's exciting event. There's still time to save $100.
> Use priority code J8TL2D2.
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/java
>one _______________________________________________
> Gambas-user-fr mailing list
> Gambas-user-fr@...
> https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

--
Gambas ? There is less good but it's more expensive !

-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Gambas-user-fr mailing list
Gambas-user-fr@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

[Charles Trois-2]

GarulfoUnix a écrit :
> Le Friday 25 April 2008 13:10:38 Charles Trois, vous avez écrit :
>  
>> Bonjour!
>>
>> J'ai installé ImportVBProject et j'essaie de m'en servir. Dans le
>> dialogue, je donne le nom du fichier VB à convertir et celui du projet
>> Gambas à créer. Puis je clique sur le bouton OK, mais là rien ne va
>> plus. J'ai un message d'erreur:
>>    

>> Quelle distribution Linux utilises-tu ?
>>    
KUbuntu 7.10 sur un iMac Intel.
>> Comment as-tu installé Gambas 2 ?
>>    
En téléchargeant la source Gambas2-2.5 et en compilant suivant les règles.

Charles


-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Gambas-user-fr mailing list
Gambas-user-fr@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

[GarulfoUnix]

Le Friday 25 April 2008 14:40:32 Charles Trois, vous avez écrit :

> GarulfoUnix a écrit :
> > Le Friday 25 April 2008 13:10:38 Charles Trois, vous avez écrit :
> >> Bonjour!
> >>
> >> J'ai installé ImportVBProject et j'essaie de m'en servir. Dans le
> >> dialogue, je donne le nom du fichier VB à convertir et celui du projet
> >> Gambas à créer. Puis je clique sur le bouton OK, mais là rien ne va
> >> plus. J'ai un message d'erreur:
> >>
> >>
> >> Quelle distribution Linux utilises-tu ?
>
> KUbuntu 7.10 sur un iMac Intel.
>
> >> Comment as-tu installé Gambas 2 ?
>
> En téléchargeant la source Gambas2-2.5 et en compilant suivant les règles.
>
> Charles

Le fait que tu obtiens un "Access Forbidden" signifie qu'il ne parvient à
écrire dans le répertoire ad-hoc.

En regardant ton message précédent, je vois qu'il n'y a pas de permission pour
l'écriture.

>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Don't miss this year's exciting event. There's still time to save $100.
> Use priority code J8TL2D2.
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/java
>one _______________________________________________
> Gambas-user-fr mailing list
> Gambas-user-fr@...
> https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

--
Gambas ? There is less good but it's more expensive !

-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Gambas-user-fr mailing list
Gambas-user-fr@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

[Charles Trois-2]

GarulfoUnix a écrit :
> Le fait que tu obtiens un "Access Forbidden" signifie qu'il ne parvient à
> écrire dans le répertoire ad-hoc.
>
> En regardant ton message précédent, je vois qu'il n'y a pas de permission pour l'écriture.
>  
Je suis l'unique utilisateur et ai le droit d'écriture sur tous les répertoires et fichiers. Néanmoins, à tout hasard, j'ai changé toutes les permissions de rw-r--r-- à rxwrwxrwx, sans résultat.

Il doit y avoir autre chose. Pourrait-ce être le fait que
ImportVBProject est un projet Gambas 1, que j'essaie de faire
fonctionner sous Gambas 2?

Charles

>
>
>
>  



-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Gambas-user-fr mailing list
Gambas-user-fr@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

[Fabien Bodard-4]

Peut -on voir le projet a tout hasard voir ça plante aussi chez moi
... j'ai aussi une kubuntu hardy  (si tu me l'envoit , stp met moi si
besoin est aussi une source vb ... lol ya longtemp que je n'en ai
plus)

Fabien

Le 26 avril 2008 15:17, Charles Trois <charles.trois@...> a écrit :

> GarulfoUnix a écrit :
>
> > Le fait que tu obtiens un "Access Forbidden" signifie qu'il ne parvient à
>  > écrire dans le répertoire ad-hoc.
>  >
>  > En regardant ton message précédent, je vois qu'il n'y a pas de permission pour l'écriture.
>  >
>  Je suis l'unique utilisateur et ai le droit d'écriture sur tous les répertoires et fichiers. Néanmoins, à tout hasard, j'ai changé toutes les permissions de rw-r--r-- à rxwrwxrwx, sans résultat.
>
>  Il doit y avoir autre chose. Pourrait-ce être le fait que
>  ImportVBProject est un projet Gambas 1, que j'essaie de faire
>  fonctionner sous Gambas 2?
>
>  Charles
>
>
>
>  >
>  >
>  >
>  >
>
>
>
>  -------------------------------------------------------------------------
>  This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
>  Don't miss this year's exciting event. There's still time to save $100.
>  Use priority code J8TL2D2.
>  http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
>  _______________________________________________
>  Gambas-user-fr mailing list
>  Gambas-user-fr@...
>  https://lists.sourceforge.net/lists/listinfo/gambas-user-fr
>

-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Gambas-user-fr mailing list
Gambas-user-fr@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-fr

[Charles Trois-2]

Fabien Bodard a écrit :
> Peut -on voir le projet a tout hasard voir ça plante aussi chez moi
> ... j'ai aussi une kubuntu hardy  (si tu me l'envoit , stp met moi si
> besoin est aussi une source vb ... lol ya longtemp que je n'en ai
> plus)
>
> Fabien
>  

 L'outil ImportVBProject est ici:

http://www.kudla.org/ImportVBProject-0.0.8.tar.gz

et le projet VB que j'essaie de convertir est dans les 3 pièces jointes
(un essai d'envoi sous forme zip a été refoulé).

Charles


VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Main
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Sudoku Generator & Tester"
   ClientHeight    =   6960
   ClientLeft      =   5190
   ClientTop       =   3960
   ClientWidth     =   8655
   Icon            =   "Main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6960
   ScaleWidth      =   8655
   Begin VB.PictureBox Picture3
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   6975
      Left            =   0
      ScaleHeight     =   6975
      ScaleWidth      =   8655
      TabIndex        =   133
      Top             =   0
      Visible         =   0   'False
      Width           =   8655
      Begin VB.PictureBox Picture4
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   6255
         Left            =   120
         ScaleHeight     =   417
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   537
         TabIndex        =   134
         Top             =   120
         Width           =   8055
      End
      Begin VB.CommandButton KnopHome
         Height          =   255
         Left            =   8280
         Picture         =   "Main.frx":030A
         Style           =   1  'Graphical
         TabIndex        =   138
         Top             =   120
         Width           =   255
      End
      Begin VB.CommandButton KnopPageUp
         Height          =   255
         Left            =   8280
         Picture         =   "Main.frx":0404
         Style           =   1  'Graphical
         TabIndex        =   137
         Top             =   360
         Width           =   255
      End
      Begin VB.CommandButton KnopPageDown
         Height          =   255
         Left            =   8280
         Picture         =   "Main.frx":04FE
         Style           =   1  'Graphical
         TabIndex        =   136
         Top             =   5880
         Width           =   255
      End
      Begin VB.CommandButton KnopEnd
         Height          =   255
         Left            =   8280
         Picture         =   "Main.frx":05F8
         Style           =   1  'Graphical
         TabIndex        =   135
         Top             =   6120
         Width           =   255
      End
      Begin VB.Label Label5
         Caption         =   "You can navigate with cursor keys, press [Return] or DoubleClick to select pattern, [Escape] or RightClick to cancel"
         Height          =   255
         Left            =   120
         TabIndex        =   139
         Top             =   6600
         Width           =   8415
      End
   End
   Begin VB.CommandButton PickPattern
      Caption         =   "Pick"
      Height          =   375
      Left            =   3480
      TabIndex        =   132
      Top             =   4320
      Width           =   735
   End
   Begin VB.CheckBox TestMinimal
      Caption         =   "Check Minimal"
      Height          =   375
      Left            =   7080
      TabIndex        =   129
      Top             =   5640
      Width           =   1335
   End
   Begin VB.CommandButton ButtonSolve
      Caption         =   "Check  Uniqueness"
      Enabled         =   0   'False
      Height          =   375
      Left            =   4455
      TabIndex        =   18
      Top             =   5640
      Width           =   1935
   End
   Begin VB.ComboBox Combo2
      Height          =   315
      ItemData        =   "Main.frx":06F2
      Left            =   1920
      List            =   "Main.frx":070B
      Style           =   2  'Dropdown List
      TabIndex        =   131
      Top             =   5640
      Width           =   1455
   End
   Begin VB.Frame Frame1
      Caption         =   "Generator Modifications"
      Height          =   2895
      Left            =   4440
      TabIndex        =   117
      Top             =   120
      Width           =   4095
      Begin VB.CheckBox CheckMinimal
         Caption         =   "Check Minimal"
         Height          =   315
         Left            =   240
         TabIndex        =   128
         Top             =   600
         Width           =   2655
      End
      Begin VB.ComboBox Combo1
         Height          =   315
         ItemData        =   "Main.frx":0770
         Left            =   2040
         List            =   "Main.frx":078C
         Style           =   2  'Dropdown List
         TabIndex        =   127
         Top             =   2400
         Width           =   975
      End
      Begin VB.Frame Frame2
         Caption         =   "To gain uniqueness, expand pattern with..."
         Height          =   1335
         Left            =   240
         TabIndex        =   119
         Top             =   960
         Width           =   3615
         Begin VB.OptionButton Option1
            Caption         =   "3 Cells (will take very long)"
            Height          =   255
            Index           =   3
            Left            =   240
            TabIndex        =   123
            Top             =   960
            Width           =   2895
         End
         Begin VB.OptionButton Option1
            Caption         =   "Don't expand, seek sequential"
            Height          =   255
            Index           =   0
            Left            =   240
            TabIndex        =   122
            Top             =   240
            Value           =   -1  'True
            Width           =   2895
         End
         Begin VB.OptionButton Option1
            Caption         =   "1 Cell (don't take long)"
            Height          =   255
            Index           =   1
            Left            =   240
            TabIndex        =   121
            Top             =   480
            Width           =   2895
         End
         Begin VB.OptionButton Option1
            Caption         =   "2 Cells (can take long)"
            Height          =   255
            Index           =   2
            Left            =   240
            TabIndex        =   120
            Top             =   720
            Width           =   2895
         End
      End
      Begin VB.CheckBox CheckLimit
         Caption         =   "Limited to ""Very Hard"""
         Height          =   255
         Left            =   240
         TabIndex        =   118
         Top             =   360
         Width           =   2295
      End
      Begin VB.Label Label3
         Appearance      =   0  'Flat
         Caption         =   "invalid grids"
         ForeColor       =   &H80000008&
         Height          =   255
         Index           =   1
         Left            =   3000
         TabIndex        =   126
         Top             =   2430
         Width           =   855
      End
      Begin VB.Label Label3
         Appearance      =   0  'Flat
         Caption         =   "Renew base givens after"
         ForeColor       =   &H80000008&
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   125
         Top             =   2430
         Width           =   1815
      End
   End
   Begin VB.PictureBox Picture1
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   2415
      Left            =   4440
      ScaleHeight     =   2385
      ScaleWidth      =   4065
      TabIndex        =   110
      Top             =   3120
      Visible         =   0   'False
      Width           =   4095
      Begin VB.PictureBox Picture2
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   495
         Left            =   360
         Picture         =   "Main.frx":07C1
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   114
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton CommandCancel
         Caption         =   "Cancel"
         Height          =   375
         Left            =   2880
         TabIndex        =   113
         Top             =   1800
         Width           =   975
      End
      Begin VB.CommandButton CommandNo
         Caption         =   "No"
         Height          =   375
         Left            =   1440
         TabIndex        =   112
         Top             =   1800
         Width           =   975
      End
      Begin VB.CommandButton CommandYes
         Caption         =   "Yes"
         Height          =   375
         Left            =   240
         TabIndex        =   111
         Top             =   1800
         Width           =   975
      End
      Begin VB.Label Label2
         Alignment       =   2  'Center
         Caption         =   "Import this pattern ?"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   116
         Top             =   1080
         Width           =   3375
      End
      Begin VB.Label Label1
         Caption         =   "QUESTION"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   18
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1320
         TabIndex        =   115
         Top             =   240
         Width           =   2295
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton ImportPattern
      Caption         =   "Import"
      Height          =   375
      Left            =   120
      TabIndex        =   109
      Top             =   4320
      Width           =   735
   End
   Begin MSComctlLib.StatusBar StatusBar
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   108
      Top             =   6585
      Width           =   8655
      _ExtentX        =   15266
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2734
            MinWidth        =   2734
            Text            =   "Very Easy:"
            TextSave        =   "Very Easy:"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2293
            MinWidth        =   2293
            Text            =   "Easy:"
            TextSave        =   "Easy:"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2558
            MinWidth        =   2558
            Text            =   "Medium:"
            TextSave        =   "Medium:"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2205
            MinWidth        =   2205
            Text            =   "Hard:"
            TextSave        =   "Hard:"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2822
            MinWidth        =   2822
            Text            =   "Very Hard:"
            TextSave        =   "Very Hard:"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
            Object.Width           =   2381
            MinWidth        =   2381
            Text            =   "Others:"
            TextSave        =   "Others:"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.CommandButton NextPattern
      Caption         =   "Next"
      Height          =   375
      Left            =   2640
      TabIndex        =   107
      Top             =   4320
      Width           =   735
   End
   Begin VB.CommandButton NewPattern
      Caption         =   "New"
      Height          =   375
      Left            =   960
      TabIndex        =   106
      Top             =   4320
      Width           =   735
   End
   Begin VB.CommandButton PreviousPattern
      Caption         =   "Previous"
      Height          =   375
      Left            =   1800
      TabIndex        =   105
      Top             =   4320
      Width           =   735
   End
   Begin VB.CommandButton CommandGenerate
      Caption         =   "Generate Sudokus"
      Height          =   375
      Left            =   120
      TabIndex        =   103
      Top             =   5160
      Width           =   4095
   End
   Begin VB.TextBox Text2
      Height          =   375
      Left            =   120
      TabIndex        =   21
      Top             =   6105
      Width           =   8415
   End
   Begin VB.TextBox Text1
      Height          =   2415
      Left            =   4440
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      OLEDropMode     =   1  'Manual
      TabIndex        =   20
      Text            =   "Main.frx":0ACB
      Top             =   3120
      Width           =   4095
   End
   Begin VB.CommandButton ButtonExit
      Caption         =   "Exit"
      Height          =   375
      Left            =   3480
      TabIndex        =   19
      Top             =   5640
      Width           =   735
   End
   Begin VB.FileListBox File1
      Height          =   1845
      Left            =   4800
      TabIndex        =   104
      TabStop         =   0   'False
      Top             =   3360
      Width           =   3135
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   180
      Left            =   0
      Top             =   0
   End
   Begin VB.FileListBox File2
      Height          =   1455
      Left            =   5880
      TabIndex        =   140
      TabStop         =   0   'False
      Top             =   480
      Width           =   1695
   End
   Begin VB.Line Line3
      BorderWidth     =   3
      X1              =   6420
      X2              =   7020
      Y1              =   5820
      Y2              =   5820
   End
   Begin VB.Label Label4
      Caption         =   "Select output file-type =>"
      Height          =   255
      Left            =   120
      TabIndex        =   130
      Top             =   5685
      Width           =   1815
   End
   Begin VB.Label PatternName
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Pattern name:"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   124
      Top             =   4800
      Width           =   4095
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   0
      Left            =   600
      TabIndex        =   102
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   1
      Left            =   960
      TabIndex        =   101
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   10
      Left            =   960
      TabIndex        =   100
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   11
      Left            =   1320
      TabIndex        =   99
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   12
      Left            =   1800
      TabIndex        =   98
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   13
      Left            =   2160
      TabIndex        =   97
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   14
      Left            =   2520
      TabIndex        =   96
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   15
      Left            =   3000
      TabIndex        =   95
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   16
      Left            =   3360
      TabIndex        =   94
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   17
      Left            =   3720
      TabIndex        =   93
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   18
      Left            =   600
      TabIndex        =   92
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   19
      Left            =   960
      TabIndex        =   91
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   2
      Left            =   1320
      TabIndex        =   90
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   20
      Left            =   1320
      TabIndex        =   89
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   21
      Left            =   1800
      TabIndex        =   88
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   22
      Left            =   2160
      TabIndex        =   87
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   23
      Left            =   2520
      TabIndex        =   86
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   24
      Left            =   3000
      TabIndex        =   85
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font
         Name            =   "BookmanITC Lt BT"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Index           =   25
      Left            =   3360
      TabIndex        =   84
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Grid
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      BeginP