VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form19 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   4575
   ClientLeft      =   30
   ClientTop       =   270
   ClientWidth     =   7980
   LinkTopic       =   "Form19"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   7980
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.CommandButton Command6 
      Caption         =   "Remove All"
      BeginProperty Font 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   3360
      TabIndex        =   6
      Top             =   2280
      Width           =   1335
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Add all"
      BeginProperty Font 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   3360
      TabIndex        =   5
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "<-- Remove"
      BeginProperty Font 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   3360
      TabIndex        =   4
      Top             =   1320
      Width           =   1335
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Add -->"
      BeginProperty Font 
         Name            =   "System"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   3360
      TabIndex        =   3
      Top             =   840
      Width           =   1335
   End
   Begin MSFlexGridLib.MSFlexGrid MFG1 
      Height          =   3855
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   3000
      _ExtentX        =   5292
      _ExtentY        =   6800
      _Version        =   393216
      FixedRows       =   0
      FixedCols       =   0
      BackColor       =   16777215
      ForeColorSel    =   255
      FillStyle       =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   4080
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Add to sample list (Enter)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5520
      TabIndex        =   1
      Top             =   4080
      Width           =   2295
   End
   Begin MSFlexGridLib.MSFlexGrid MfG2 
      Height          =   3855
      Left            =   4800
      TabIndex        =   7
      Top             =   120
      Width           =   3000
      _ExtentX        =   5292
      _ExtentY        =   6800
      _Version        =   393216
      FixedRows       =   0
      FixedCols       =   0
      BackColor       =   16777215
      ForeColorSel    =   255
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "Form19"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click()

If REESample = 1 Then


Form8.List1.Clear

For i = 0 To Numcamp1 - 1
MfG2.col = 0
MfG2.Row = i
bbb$ = MfG2.Text

If bbb$ <> "" Then
Form8.List1.AddItem bbb$
End If

Next i


ssss = Form8.List1.ListCount
Form8.Label36.Caption = ssss

End If

If REESample = 2 Then

Form16.List1.Clear

For i = 0 To Numcamp1 - 1
MfG2.col = 0
MfG2.Row = i
bbb$ = MfG2.Text

If bbb$ <> "" Then
Form16.List1.AddItem bbb$
End If

Next i


ssss = Form16.List1.ListCount
Form16.Label3.Caption = ssss
End If



Form19.Hide


End Sub





Private Sub Command2_Click()

Form19.Hide

End Sub






Private Sub Command3_Click()

Form19.Command1.SetFocus



selz = MFG1.Clip
init = 1
fin = 1

For i = 1 To Len(selz) + 1

wwwww$ = Mid(selz, i, 1)
If wwwww$ = Chr$(13) Or wwwww$ = "" Then
fin = i
camp = Mid(selz, init, fin - init)
init = i + 1

For ii = 0 To Numcamp1 - 1
MfG2.col = 0
MfG2.Row = ii
bbb$ = MfG2.Text
If bbb$ = "" Then
MfG2.Text = camp
GoTo ret
End If
If camp = bbb$ Then
GoTo yuy1
End If
Next ii
yuy1:
End If
ret:
Next i





End Sub





Private Sub Command4_Click()


Form19.Command1.SetFocus

'definisco una matrice con tutti gli elementi della lista

Dim WEWU(1500)
Dim WEWU1(1500)

selz = MfG2.Clip

'matrice con tutti i campioni in mfg2
For ii = 0 To Numcamp1 - 1
MfG2.col = 0
MfG2.Row = ii
bbb$ = MfG2.Text
WEWU(ii + 1) = bbb$
Next ii


'matrice con gli elementi da Eliminare
init = 1
fin = 1
NumCampqui = 0
For i = 1 To Len(selz) + 1

wwwww$ = Mid(selz, i, 1)
If wwwww$ = Chr$(13) Or wwwww$ = "" Then
fin = i
camp = Mid(selz, init, fin - init)
init = i + 1
NumCampqui = NumCampqui + 1
WEWU1(NumCampqui) = camp
End If

Next i

MfG2.Clear

rw = -1
For ii = 1 To Numcamp1
For iii = 1 To Numcamp1
If WEWU(ii) = WEWU1(iii) Then
GoTo poi
End If
Next iii
rw = rw + 1
MfG2.col = 0
MfG2.Row = rw
MfG2.Text = WEWU(ii)
poi:
Next ii


End Sub



Private Sub Command5_Click()

Form19.Command1.SetFocus

MfG2.Clear

For ii = 0 To Numcamp1 - 1
MfG2.col = 0
MfG2.Row = ii
MFG1.col = 0
MFG1.Row = ii
MfG2.Text = MFG1.Text
Next ii

End Sub






Private Sub Command6_Click()

Form19.Command1.SetFocus

MfG2.Clear


End Sub





Private Sub MFG1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub MfG2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command5_Click
End If

End Sub