VERSION 5.00 Begin VB.Form Form5 BorderStyle = 4 'Fixed ToolWindow ClientHeight = 3255 ClientLeft = 45 ClientTop = 285 ClientWidth = 4635 LinkTopic = "Form5" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 3255 ScaleWidth = 4635 ShowInTaskbar = 0 'False Begin VB.OptionButton Option2 Caption = "only this sample" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 2772 TabIndex = 63 Top = 2388 Width = 1692 End Begin VB.OptionButton Option1 Caption = "All samples" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 2772 TabIndex = 62 Top = 2148 Value = -1 'True Width = 1332 End Begin VB.CommandButton Command2 Caption = "Cancel" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2760 TabIndex = 55 Top = 2760 Width = 735 End Begin VB.CommandButton Command1 Caption = "Ok (SpBar)" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3600 TabIndex = 1 Top = 2760 Width = 975 End Begin VB.Frame Frame2 Caption = "NEW" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 975 Left = 1440 TabIndex = 50 Top = 2160 Width = 1212 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 22 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 52 Top = 240 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 21 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 51 Top = 660 Width = 250 End Begin VB.Label Label5 Alignment = 1 'Right Justify Caption = "Symbol" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 276 TabIndex = 54 Top = 252 Width = 732 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Color" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 330 TabIndex = 53 Top = 675 Width = 735 End End Begin VB.Frame Frame3 Caption = "Actual" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 975 Left = 120 TabIndex = 45 Top = 2160 Width = 1212 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 39 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 47 Top = 660 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 41 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 46 Top = 240 Width = 250 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Color" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 300 TabIndex = 49 Top = 675 Width = 735 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Symbol" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 360 TabIndex = 48 Top = 240 Width = 732 End End Begin VB.Frame Symbol Caption = "Symbol (click to select)" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1932 Left = 2400 TabIndex = 26 Top = 120 Width = 2052 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 25 Left = 1356 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 58 Top = 1584 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 24 Left = 768 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 57 Top = 1584 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 23 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 56 Top = 1560 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 8 Left = 1356 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 35 Top = 1152 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 7 Left = 768 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 34 Top = 1164 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 6 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 33 Top = 1164 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 5 Left = 1356 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 32 Top = 720 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 4 Left = 768 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 31 Top = 720 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 3 Left = 120 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 30 Top = 720 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 2 Left = 1356 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 29 Top = 324 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 1 Left = 768 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 28 Top = 312 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 0 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 27 Top = 324 Width = 250 End Begin VB.Line Line2 X1 = 1284 X2 = 1284 Y1 = 240 Y2 = 1800 End Begin VB.Line Line1 X1 = 684 X2 = 684 Y1 = 228 Y2 = 1800 End Begin VB.Line Line9 X1 = 96 X2 = 1800 Y1 = 1512 Y2 = 1512 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "10" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 23 Left = 276 TabIndex = 61 Top = 1572 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "11" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 22 Left = 900 TabIndex = 60 Top = 1584 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "12" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 21 Left = 1560 TabIndex = 59 Top = 1596 Width = 336 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "9" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 8 Left = 1608 TabIndex = 44 Top = 1152 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "8" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 7 Left = 900 TabIndex = 43 Top = 1164 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "7" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 6 Left = 288 TabIndex = 42 Top = 1164 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "6" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 5 Left = 1620 TabIndex = 41 Top = 720 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "3" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 4 Left = 1608 TabIndex = 40 Top = 324 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "5" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 3 Left = 888 TabIndex = 39 Top = 720 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "2" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 2 Left = 900 TabIndex = 38 Top = 324 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "4" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 1 Left = 252 TabIndex = 37 Top = 720 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "1" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 0 Left = 276 TabIndex = 36 Top = 324 Width = 492 End Begin VB.Line Line4 X1 = 120 X2 = 1800 Y1 = 1080 Y2 = 1080 End Begin VB.Line Line3 X1 = 108 X2 = 1800 Y1 = 648 Y2 = 648 End End Begin VB.Frame Frame1 Caption = "Color (click to select)" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1932 Left = 120 TabIndex = 0 Top = 120 Width = 2052 Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 20 Left = 1440 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 13 Top = 1572 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 19 Left = 780 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 12 Top = 1572 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 18 Left = 108 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 11 Top = 1572 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 17 Left = 1464 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 10 Top = 1164 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 16 Left = 804 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 9 Top = 1164 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 15 Left = 120 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 8 Top = 1164 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 14 Left = 1476 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 7 Top = 720 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 13 Left = 816 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 6 Top = 720 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 12 Left = 144 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 5 Top = 720 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 11 Left = 1464 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 4 Top = 324 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 10 Left = 804 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 3 Top = 324 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 9 Left = 132 ScaleHeight = 225 ScaleWidth = 225 TabIndex = 2 Top = 324 Width = 250 End Begin VB.Line Line6 X1 = 720 X2 = 720 Y1 = 240 Y2 = 1800 End Begin VB.Line Line5 X1 = 1344 X2 = 1344 Y1 = 204 Y2 = 1800 End Begin VB.Line Line10 X1 = 120 X2 = 1920 Y1 = 1512 Y2 = 1512 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "4" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 20 Left = 300 TabIndex = 25 Top = 744 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "8" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 19 Left = 960 TabIndex = 24 Top = 1176 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "12" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 18 Left = 1680 TabIndex = 23 Top = 1560 Width = 240 End Begin VB.Line Line8 X1 = 108 X2 = 1920 Y1 = 648 Y2 = 648 End Begin VB.Line Line7 X1 = 132 X2 = 1920 Y1 = 1080 Y2 = 1080 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "1" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 17 Left = 276 TabIndex = 22 Top = 336 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "5" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 16 Left = 960 TabIndex = 21 Top = 720 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "2" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 15 Left = 948 TabIndex = 20 Top = 324 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "6" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 14 Left = 1680 TabIndex = 19 Top = 732 Width = 348 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "3" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 13 Left = 1680 TabIndex = 18 Top = 324 Width = 348 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "7" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 12 Left = 264 TabIndex = 17 Top = 1176 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "9" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 11 Left = 1704 TabIndex = 16 Top = 1164 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "10" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 10 Left = 276 TabIndex = 15 Top = 1584 Width = 492 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "11" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 9 Left = 936 TabIndex = 14 Top = 1584 Width = 492 End End End Attribute VB_Name = "Form5" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() On Error GoTo ee picforms(Indeks).Picture1.Cls picforms(Indeks).Picture2.Cls 'Solo uno If Option2.Value = True Then If tipoGraph(Indeks) = "normx-normy" Then MF1.DisegnaNormXNormY End If If tipoGraph(Indeks) = "normx-logy" Then MF1.DisegnaNormXLogY End If If tipoGraph(Indeks) = "logx-normy" Then MF1.DisegnaLogXNormY End If If tipoGraph(Indeks) = "logx-logy" Then MF1.DisegnaLogXLogY End If End If 'tutti If Option1.Value = True Then BackGrnd.FG1.Row = RowSel1 BackGrnd.FG1.col = 1 NewSimb = BackGrnd.FG1 BackGrnd.FG1.col = 2 NewCol = BackGrnd.FG1 For i = 1 To Numcamp1 If i = RowSel Then GoTo ewq End If BackGrnd.FG1.Row = i BackGrnd.FG1.col = 1 simb1 = BackGrnd.FG1 BackGrnd.FG1.col = 2 col1 = BackGrnd.FG1 If col1 = OldCol And simb1 = OldSym Then BackGrnd.FG1.col = 1 BackGrnd.FG1 = NewSimb BackGrnd.FG1.col = 2 BackGrnd.FG1 = NewCol End If ewq: Next i MF1.AGG End If Form5.Hide GoTo ee1 ee: MsgBox "An Error Occurred", , "Error" Form5.Hide Exit Sub ee1: End Sub Private Sub Command2_Click() Form5.Hide End Sub Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Option2_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Picture1_Click(Index As Integer) For i = 1 To Numcamp1 If Campione(i, IndexSel) = SelezCampCamB Then RowSel = i GoTo ww End If Next i ww: BackGrnd.FG1.Row = RowSel If Index < 9 Or Index > 22 And Index < 26 Then BackGrnd.FG1.col = 1 Form5.Picture1(22).Cls If Index = 0 Then Form5.Picture1(22).FillColor = QBColor(0) Form5.Picture1(22).FillStyle = 0 Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B End If If Index = 1 Then Form5.Picture1(22).FillColor = QBColor(0) Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B End If If Index = 2 Then Form5.Picture1(22).FillColor = QBColor(0) Form5.Picture1(22).FillStyle = 0 Form5.Picture1(22).Circle (5, 5), 2, QBColor(0) End If If Index = 3 Then Form5.Picture1(22).FillColor = QBColor(0) Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Circle (5, 5), 2, QBColor(0) End If If Index = 4 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5, 5 + 2), QBColor(0) Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), QBColor(0) Form5.Picture1(22).Line (5 + 2, 5 - 2)-(5, 5 + 2), QBColor(0) End If If Index = 5 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5 + 2)-(5, 5 - 2), QBColor(0) Form5.Picture1(22).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), QBColor(0) Form5.Picture1(22).Line (5 + 2, 5 + 2)-(5, 5 - 2), QBColor(0) End If If Index = 6 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form5.Picture1(22).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) Form5.Picture1(22).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) End If If Index = 7 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form5.Picture1(22).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) End If If Index = 8 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5)-(5, 5 + 4), QBColor(0) Form5.Picture1(22).Line (5, 5 + 4)-(5 + 2, 5), QBColor(0) Form5.Picture1(22).Line (5 + 2, 5)-(5, 5 - 4), QBColor(0) Form5.Picture1(22).Line (5, 5 - 4)-(5 - 2, 5), QBColor(0) End If If Index = 23 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) Form5.Picture1(22).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) End If If Index = 24 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) End If If Index = 25 Then Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) Form5.Picture1(22).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) Form5.Picture1(22).FillColor = QBColor(0) Form5.Picture1(22).FillStyle = 1 Form5.Picture1(22).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B End If End If If Index > 8 And Index < 23 Then Form5.Picture1(21).BackColor = Form5.Picture1(Index).BackColor End If For i = 1 To Numcamp1 If NomeCamp(i) = SelezCampCamB Then RowSel = i GoTo ww1 End If Next i ww1: If Index > 22 And Index < 26 Then BackGrnd.FG1.col = 1 BackGrnd.FG1.Row = RowSel BackGrnd.FG1 = Index - 13 End If If Index >= 9 And Index < 23 Then BackGrnd.FG1.col = 2 BackGrnd.FG1.Row = RowSel BackGrnd.FG1 = Index - 8 End If If Index < 9 Then BackGrnd.FG1.col = 1 BackGrnd.FG1.Row = RowSel BackGrnd.FG1 = Index + 1 End If End Sub Private Sub Picture1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub