VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form Form27 BorderStyle = 4 'Fixed ToolWindow Caption = "Isotopic AFC" ClientHeight = 6180 ClientLeft = 30 ClientTop = 270 ClientWidth = 3990 LinkTopic = "Form27" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 6180 ScaleWidth = 3990 ShowInTaskbar = 0 'False Begin MSComDlg.CommonDialog CMD1 Left = 1800 Top = 2880 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.Frame Frame3 Caption = "Line" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 975 Left = 1992 TabIndex = 48 Top = 4575 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 21 Left = 480 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 50 Top = 576 Width = 250 End Begin VB.ComboBox Combo2 Height = 315 ItemData = "Form27.frx":0000 Left = 276 List = "Form27.frx":000A TabIndex = 49 Text = "1" Top = 240 Width = 735 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 1020 TabIndex = 52 Top = 276 Width = 612 End Begin VB.Label Label6 Alignment = 2 'Center Caption = "Color" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 684 TabIndex = 51 Top = 588 Width = 708 End End Begin VB.CommandButton Command2 Caption = "Cancel" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1200 TabIndex = 47 Top = 5640 Width = 930 End Begin VB.CommandButton Command1 Caption = "Ok (SpaceBar)" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2235 TabIndex = 1 Top = 5640 Width = 1575 End Begin VB.Frame Frame6 Caption = "Assimilant CA" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 975 Left = 84 TabIndex = 44 Top = 3930 Width = 1848 Begin VB.CommandButton Command4 Caption = "Select CA on graph" Height = 255 Left = 108 TabIndex = 46 Top = 612 Width = 1632 End Begin VB.ComboBox Combo5 Height = 315 Left = 108 TabIndex = 45 Text = "select" Top = 252 Width = 1632 End End Begin VB.Frame Frame2 Caption = "Parent C0" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 975 Left = 84 TabIndex = 41 Top = 2880 Width = 1872 Begin VB.CommandButton Command3 Caption = "Select C0 on graph" Height = 255 Left = 84 TabIndex = 43 Top = 600 Width = 1620 End Begin VB.ComboBox Combo1 Height = 315 Left = 78 TabIndex = 42 Text = "select" Top = 240 Width = 1632 End End Begin VB.Frame Frame1 Caption = "F" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1416 Left = 84 TabIndex = 34 Top = 1440 Width = 1872 Begin VB.TextBox Text2 Height = 285 Index = 1 Left = 804 TabIndex = 37 Text = "0.1" Top = 216 Width = 855 End Begin VB.TextBox Text3 Height = 285 Index = 1 Left = 804 TabIndex = 36 Text = "1" Top = 576 Width = 855 End Begin VB.TextBox Text4 Height = 285 Index = 1 Left = 804 TabIndex = 35 Text = "0.1" Top = 936 Width = 855 End Begin VB.Label Label2 Caption = "From" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 40 Top = 240 Width = 735 End Begin VB.Label Label3 Caption = "To" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 39 Top = 600 Width = 735 End Begin VB.Label Label4 Caption = "Step" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 38 Top = 960 Width = 735 End End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 0 Left = 1200 TabIndex = 32 Text = "Text1" Top = 1080 Visible = 0 'False Width = 735 End Begin VB.Frame frame5 Caption = "Symbol (click to sel.)" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1392 Left = 1992 TabIndex = 13 Top = 1440 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 5 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 22 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 4 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 21 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 3 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 20 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 2 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 19 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 1 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 18 Top = 252 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 = 17 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 6 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 16 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 7 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 15 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 8 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 14 Top = 996 Width = 250 End Begin VB.Line Line1 X1 = 600 X2 = 600 Y1 = 240 Y2 = 1296 End Begin VB.Line Line2 X1 = 1188 X2 = 1188 Y1 = 228 Y2 = 1284 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 = 13 Left = 1524 TabIndex = 31 Top = 624 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 = 14 Left = 1524 TabIndex = 30 Top = 252 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 = 15 Left = 948 TabIndex = 29 Top = 624 Width = 252 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 = 16 Left = 948 TabIndex = 28 Top = 252 Width = 252 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 = 17 Left = 444 TabIndex = 27 Top = 624 Width = 132 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 = 18 Left = 402 TabIndex = 26 Top = 252 Width = 216 End Begin VB.Line Line4 X1 = 120 X2 = 1680 Y1 = 948 Y2 = 948 End Begin VB.Line Line3 X1 = 120 X2 = 1680 Y1 = 564 Y2 = 564 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 = 384 TabIndex = 25 Top = 996 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 = 11 Left = 948 TabIndex = 24 Top = 996 Width = 252 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 = 10 Left = 1584 TabIndex = 23 Top = 996 Width = 132 End End Begin VB.Frame Frame4 Caption = "Symbol" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1620 Left = 1992 TabIndex = 4 Top = 2895 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 39 Left = 432 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 8 Top = 984 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 41 Left = 432 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 7 Top = 1320 Width = 250 End Begin VB.ComboBox Combo3 Height = 315 ItemData = "Form27.frx":0014 Left = 252 List = "Form27.frx":0021 TabIndex = 6 Text = "Min" Top = 252 Width = 720 End Begin VB.ComboBox Combo4 Height = 315 ItemData = "Form27.frx":0034 Left = 240 List = "Form27.frx":003E TabIndex = 5 Text = "1" Top = 636 Width = 732 End Begin VB.Label Label7 Caption = "Color" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 864 TabIndex = 12 Top = 984 Width = 492 End Begin VB.Label Label8 Caption = "Symbol" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 852 TabIndex = 11 Top = 1296 Width = 600 End Begin VB.Label Label11 Caption = "Dim" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 1152 TabIndex = 10 Top = 276 Width = 492 End Begin VB.Label Label9 Caption = "Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 1140 TabIndex = 9 Top = 660 Width = 492 End End Begin VB.Frame frame7 Caption = "R" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 600 Left = 84 TabIndex = 0 Top = 4935 Width = 1872 Begin VB.TextBox Text5 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 285 Index = 1 Left = 900 TabIndex = 2 Text = "0" Top = 216 Width = 825 End Begin VB.Label Label12 Caption = "R value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 96 TabIndex = 3 Top = 240 Width = 1332 End End Begin VB.Label Label13 Alignment = 2 'Center Caption = " (e.g. y = 87Sr/86Sr and x = Sr)" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 255 Left = 330 TabIndex = 54 Top = 780 Width = 3255 End Begin VB.Label Label10 Alignment = 2 'Center Caption = "This model works only if an isotopic ratio of an element is present in y axes and the same element is present in x axes" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 735 Left = 0 TabIndex = 53 Top = 0 Width = 3975 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 33 Top = 1080 Visible = 0 'False Width = 1455 End End Attribute VB_Name = "Form27" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Command1_Click() INP.RecuperoXY AXX(GraphSelect), AXY(GraphSelect) If CambiaMod = False Then ModelSymbCol = Picture1(39).BackColor ModelLineCol = Picture1(21).BackColor saa = (NumModelli(Indeks) + 1) sbb = (NumModelli(Indeks) + 1) ColModLine(saa, Indeks) = ModelLineCol ColModSymb(sbb, Indeks) = ModelSymbCol Else ModelSymbCol = Picture1(39).BackColor ModelLineCol = Picture1(21).BackColor ColModLine(MODiD, Indeks) = ModelLineCol ColModSymb(MODiD, Indeks) = ModelSymbCol End If 'ModelSymbSp If Combo3.Text = "Min" Then ModelSymbSp = 2 End If If Combo3.Text = "Med" Then ModelSymbSp = 4 End If If Combo3.Text = "Max" Then ModelSymbSp = 6 End If ' ModelLineSp If Combo2.Text = "1" Then ModelLineSp = 1 LineSp(Indeks) = 1 End If If Combo2.Text = "2" Then ModelLineSp = 2 LineSp(Indeks) = 2 End If 'ModelSymbWid If Combo4.Text = "1" Then ModelSymbWid = 1 End If If Combo4.Text = "2" Then ModelSymbWid = 2 End If finit = Val(Form27.Text2(1)) fifin = Val(Form27.Text3(1)) fstep = Val(Form27.Text4(1)) Parent = Form27.Combo1.Text Assimilant = Form27.Combo5.Text R = Form27.Text5(1).Text ModD(1) = Val(Form27.Text1(0).Text) C0M(Indeks) = Parent CAM(Indeks) = Assimilant C1M(Indeks) = "select" C2M(Indeks) = "select" model.AFCiso GraphSelect, Parent, Assimilant, R, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid 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 Form27.Hide End Sub Private Sub Command2_Click() Form27.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 Command3_Click() Form27.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = False SelCA = False SelC0I = True SelCAI = False picforms(GraphSelect).SetFocus End Sub Private Sub Command4_Click() Form27.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = False SelCA = False SelC0I = False SelCAI = True picforms(GraphSelect).SetFocus End Sub Private Sub Picture1_Click(Index As Integer) If Index = 39 Then CMD1.ShowColor ModelSymbCol = CMD1.Color Form27.Picture1(39).BackColor = CMD1.Color End If If Index = 21 Then CMD1.ShowColor ModelLineCol = CMD1.Color Form27.Picture1(21).BackColor = CMD1.Color End If 'picture(0) If Index = 0 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillColor = QBColor(0) Form27.Picture1(41).FillStyle = 0 Form27.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B ModelSymb = Index + 1 End If 'picture(1) If Index = 1 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillColor = QBColor(0) Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B ModelSymb = Index + 1 End If 'picture(2) If Index = 2 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillColor = QBColor(0) Form27.Picture1(41).FillStyle = 0 Form27.Picture1(41).Circle (5, 5), 2, QBColor(0) ModelSymb = Index + 1 End If 'picture(3) If Index = 3 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillColor = QBColor(0) Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Circle (5, 5), 2, QBColor(0) ModelSymb = Index + 1 End If 'picture(4) If Index = 4 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Line (5 - 2, 5 - 2)-(5, 5 + 2), QBColor(0) Form27.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), QBColor(0) Form27.Picture1(41).Line (5 + 2, 5 - 2)-(5, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(5) If Index = 5 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Line (5 - 2, 5 + 2)-(5, 5 - 2), QBColor(0) Form27.Picture1(41).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), QBColor(0) Form27.Picture1(41).Line (5 + 2, 5 + 2)-(5, 5 - 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(6) If Index = 6 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form27.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) Form27.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) Form27.Picture1(41).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(7) If Index = 7 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form27.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(8) If Index = 8 Then Form27.Picture1(41).Cls Form27.Picture1(41).FillStyle = 1 Form27.Picture1(41).Line (5 - 2, 5)-(5, 5 + 4), QBColor(0) Form27.Picture1(41).Line (5, 5 + 4)-(5 + 2, 5), QBColor(0) Form27.Picture1(41).Line (5 + 2, 5)-(5, 5 - 4), QBColor(0) Form27.Picture1(41).Line (5, 5 - 4)-(5 - 2, 5), QBColor(0) ModelSymb = Index + 1 End If End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text3_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text4_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text5_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub