Visual Basic Controls

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / enigma10 / enigma10.exe / Main / Form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-06-12 | 36.7 KB | 1,154 lines

VERSION 5.00 Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX" Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0"; "RICHTX32.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX" Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX" Object = "{EBC8A4CE-64DD-11D1-AEA4-00A024966898}#1.0#0"; "ENIGMA10.OCX" Begin VB.Form Form1 BorderStyle = 3 'Fixed Dialog Caption = "Enigma 10 Sample Program" ClientHeight = 4755 ClientLeft = 45 ClientTop = 330 ClientWidth = 9210 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4755 ScaleWidth = 9210 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin Enigma10.EnigmaControl EnigmaControl1 Left = 4935 Top = 2220 _ExtentX = 847 _ExtentY = 847 End Begin ComctlLib.ProgressBar ProgressBar1 Height = 360 Left = 5520 TabIndex = 71 Top = 4215 Width = 3570 _ExtentX = 6297 _ExtentY = 635 _Version = 327680 Appearance = 0 MouseIcon = "Form1.frx":0000 End Begin VB.CommandButton Command1 Caption = "Encrypt" Height = 375 Left = 5520 TabIndex = 48 Top = 3315 Width = 1650 End Begin VB.CommandButton Command4 Caption = "Swap" Height = 375 Left = 7290 TabIndex = 47 Top = 3315 Width = 1800 End Begin MSComDlg.CommonDialog CommonDialog1 Left = 4845 Top = 90 _ExtentX = 847 _ExtentY = 847 _Version = 327680 End Begin VB.CommandButton Command3 Caption = "Encrypt File" Height = 375 Left = 7290 TabIndex = 25 Top = 3765 Width = 1800 End Begin VB.Frame Frame3 Caption = "Start Positions" Height = 1020 Left = 5490 TabIndex = 23 Top = 2175 Width = 3615 Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 15 Left = 495 TabIndex = 36 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 16 Left = 1185 TabIndex = 37 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 17 Left = 1875 TabIndex = 38 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 18 Left = 2565 TabIndex = 39 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 19 Left = 3240 TabIndex = 40 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 10 Left = 480 TabIndex = 51 Top = 285 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 11 Left = 1170 TabIndex = 52 Top = 285 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 12 Left = 1860 TabIndex = 53 Top = 285 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 13 Left = 2550 TabIndex = 54 Top = 285 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 14 Left = 3225 TabIndex = 55 Top = 285 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 10 Left = 90 TabIndex = 60 Top = 285 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 11 Left = 780 TabIndex = 59 Top = 285 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 12 Left = 1470 TabIndex = 58 Top = 285 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 13 Left = 2160 TabIndex = 57 Top = 285 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 14 Left = 2835 TabIndex = 56 Top = 285 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 15 Left = 105 TabIndex = 45 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 16 Left = 795 TabIndex = 44 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 17 Left = 1485 TabIndex = 43 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 18 Left = 2175 TabIndex = 42 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 19 Left = 2850 TabIndex = 41 Top = 630 Width = 360 End End Begin VB.Frame Frame2 Caption = "Ring Settings" Height = 1020 Left = 5490 TabIndex = 12 Top = 1095 Width = 3615 Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 0 Left = 495 TabIndex = 13 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 1 Left = 1185 TabIndex = 14 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 2 Left = 1875 TabIndex = 15 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 3 Left = 2565 TabIndex = 16 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 4 Left = 3240 TabIndex = 17 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 5 Left = 495 TabIndex = 61 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 6 Left = 1185 TabIndex = 62 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 7 Left = 1875 TabIndex = 63 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 8 Left = 2565 TabIndex = 64 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown2 Height = 270 Index = 9 Left = 3240 TabIndex = 65 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 5 Left = 105 TabIndex = 70 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 6 Left = 795 TabIndex = 69 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 7 Left = 1485 TabIndex = 68 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 8 Left = 2175 TabIndex = 67 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 9 Left = 2850 TabIndex = 66 Top = 630 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 0 Left = 105 TabIndex = 22 Top = 300 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 1 Left = 795 TabIndex = 21 Top = 300 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 2 Left = 1485 TabIndex = 20 Top = 300 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 3 Left = 2175 TabIndex = 19 Top = 300 Width = 360 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 4 Left = 2850 TabIndex = 18 Top = 300 Width = 360 End End Begin VB.Frame Frame1 Caption = "Rotor Order" Height = 1020 Left = 5490 TabIndex = 1 Top = 30 Width = 3615 Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 0 Left = 495 TabIndex = 2 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 1 Left = 1185 TabIndex = 4 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 2 Left = 1875 TabIndex = 6 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 3 Left = 2565 TabIndex = 8 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 4 Left = 3240 TabIndex = 10 Top = 300 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 5 Left = 495 TabIndex = 26 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 6 Left = 1185 TabIndex = 27 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 7 Left = 1875 TabIndex = 28 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 8 Left = 2565 TabIndex = 29 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin ComCtl2.UpDown UpDown1 Height = 270 Index = 9 Left = 3240 TabIndex = 30 Top = 630 Width = 240 _ExtentX = 423 _ExtentY = 476 _Version = 327680 Enabled = -1 'True End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 5 Left = 105 TabIndex = 35 Top = 630 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 6 Left = 795 TabIndex = 34 Top = 630 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 7 Left = 1485 TabIndex = 33 Top = 630 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 8 Left = 2175 TabIndex = 32 Top = 630 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 9 Left = 2850 TabIndex = 31 Top = 630 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 4 Left = 2850 TabIndex = 11 Top = 300 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 3 Left = 2175 TabIndex = 9 Top = 300 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 2 Left = 1485 TabIndex = 7 Top = 300 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 1 Left = 795 TabIndex = 5 Top = 300 Width = 360 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H80000009& BorderStyle = 1 'Fixed Single Height = 270 Index = 0 Left = 105 TabIndex = 3 Top = 300 Width = 360 End End Begin VB.CommandButton Command6 Caption = "Clear" Height = 375 Left = 5520 TabIndex = 0 Top = 3765 Width = 1650 End Begin RichTextLib.RichTextBox RichTextBox1 Height = 1950 Left = 60 TabIndex = 24 Top = 285 Width = 5340 _ExtentX = 9419 _ExtentY = 3440 _Version = 327680 ScrollBars = 3 TextRTF = $"Form1.frx":001C End Begin RichTextLib.RichTextBox RichTextBox2 Height = 1950 Left = 60 TabIndex = 46 Top = 2625 Width = 5340 _ExtentX = 9419 _ExtentY = 3440 _Version = 327680 ScrollBars = 3 TextRTF = $"Form1.frx":00E5 End Begin VB.Label Label5 AutoSize = -1 'True Caption = "After" Height = 195 Left = 75 TabIndex = 50 Top = 2400 Width = 330 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "Before" Height = 195 Left = 75 TabIndex = 49 Top = 60 Width = 465 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() EnigmaControl1.Text = RichTextBox1.Text EnigmaControl1.Encrypt RichTextBox2.Text = EnigmaControl1.Text End Sub Private Sub Command3_Click() CommonDialog1.DialogTitle = "Open Text File" CommonDialog1.Filter = "Any File (*.*)|*.*" CommonDialog1.Action = 1 If CommonDialog1.filename <> "" Then EnigmaControl1.SourceFile = CommonDialog1.filename EnigmaControl1.TargetFile = "c:\test.txt" EnigmaControl1.EncryptFile ProgressBar1 Kill CommonDialog1.filename Name "c:\test.txt" As CommonDialog1.filename ProgressBar1.Value = 0 End If End Sub Private Sub EnigmaControl1_OnEncryption() MsgBox "Complete" End Sub Private Sub Command4_Click() RichTextBox1.Text = RichTextBox2.Text End Sub Private Sub Command6_Click() RichTextBox2.Text = "" End Sub Private Sub Form_Load() For x = 0 To 9 Label2(x) = Trim(Str(x + 1)) For x = 0 To 19 Label3(x) = "1" RichTextBox1.Text = "This is sample text to encrypt..." & Chr(13) & Chr(10) & "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA" End Sub Private Sub UpDown1_DownClick(Index As Integer) If Val(Label2(Index)) <= 1 Then Label2(Index) = 10 Select Case Index Case 0 EnigmaControl1.RotorOrder1 = Val(Label2(Index)) Case 1 EnigmaControl1.RotorOrder2 = Val(Label2(Index)) Case 2 EnigmaControl1.RotorOrder3 = Val(Label2(Index)) Case 3 EnigmaControl1.RotorOrder4 = Val(Label2(Index)) Case 4 EnigmaControl1.RotorOrder5 = Val(Label2(Index)) Case 5 EnigmaControl1.RotorOrder6 = Val(Label2(Index)) Case 6 EnigmaControl1.RotorOrder7 = Val(Label2(Index)) Case 7 EnigmaControl1.RotorOrder8 = Val(Label2(Index)) Case 8 EnigmaControl1.RotorOrder9 = Val(Label2(Index)) Case 9 EnigmaControl1.RotorOrder10 = Val(Label2(Index)) End Select Label2(Index) = Val(Label2(Index)) - 1 Select Case Index Case 0 EnigmaControl1.RotorOrder1 = Val(Label2(Index)) Case 1 EnigmaControl1.RotorOrder2 = Val(Label2(Index)) Case 2 EnigmaControl1.RotorOrder3 = Val(Label2(Index)) Case 3 EnigmaControl1.RotorOrder4 = Val(Label2(Index)) Case 4 EnigmaControl1.RotorOrder5 = Val(Label2(Index)) Case 5 EnigmaControl1.RotorOrder6 = Val(Label2(Index)) Case 6 EnigmaControl1.RotorOrder7 = Val(Label2(Index)) Case 7 EnigmaControl1.RotorOrder8 = Val(Label2(Index)) Case 8 EnigmaControl1.RotorOrder9 = Val(Label2(Index)) Case 9 EnigmaControl1.RotorOrder10 = Val(Label2(Index)) End Select End If End Sub Private Sub UpDown1_UpClick(Index As Integer) If Val(Label2(Index)) >= 10 Then Label2(Index) = 1 Select Case Index Case 0 EnigmaControl1.RotorOrder1 = Val(Label2(Index)) Case 1 EnigmaControl1.RotorOrder2 = Val(Label2(Index)) Case 2 EnigmaControl1.RotorOrder3 = Val(Label2(Index)) Case 3 EnigmaControl1.RotorOrder4 = Val(Label2(Index)) Case 4 EnigmaControl1.RotorOrder5 = Val(Label2(Index)) Case 5 EnigmaControl1.RotorOrder6 = Val(Label2(Index)) Case 6 EnigmaControl1.RotorOrder7 = Val(Label2(Index)) Case 7 EnigmaControl1.RotorOrder8 = Val(Label2(Index)) Case 8 EnigmaControl1.RotorOrder9 = Val(Label2(Index)) Case 9 EnigmaControl1.RotorOrder10 = Val(Label2(Index)) End Select Label2(Index) = Val(Label2(Index)) + 1 Select Case Index Case 0 EnigmaControl1.RotorOrder1 = Val(Label2(Index)) Case 1 EnigmaControl1.RotorOrder2 = Val(Label2(Index)) Case 2 EnigmaControl1.RotorOrder3 = Val(Label2(Index)) Case 3 EnigmaControl1.RotorOrder4 = Val(Label2(Index)) Case 4 EnigmaControl1.RotorOrder5 = Val(Label2(Index)) Case 5 EnigmaControl1.RotorOrder6 = Val(Label2(Index)) Case 6 EnigmaControl1.RotorOrder7 = Val(Label2(Index)) Case 7 EnigmaControl1.RotorOrder8 = Val(Label2(Index)) Case 8 EnigmaControl1.RotorOrder9 = Val(Label2(Index)) Case 9 EnigmaControl1.RotorOrder10 = Val(Label2(Index)) End Select End If End Sub Private Sub UpDown2_DownClick(Index As Integer) If Val(Label3(Index)) <= 0 Then Label3(Index) = 255 Select Case Index Case 0 EnigmaControl1.RingSetting1 = Val(Label3(Index)) Case 1 EnigmaControl1.RingSetting2 = Val(Label3(Index)) Case 2 EnigmaControl1.RingSetting3 = Val(Label3(Index)) Case 3 EnigmaControl1.RingSetting4 = Val(Label3(Index)) Case 4 EnigmaControl1.RingSetting5 = Val(Label3(Index)) Case 5 EnigmaControl1.RingSetting6 = Val(Label3(Index)) Case 6 EnigmaControl1.RingSetting7 = Val(Label3(Index)) Case 7 EnigmaControl1.RingSetting8 = Val(Label3(Index)) Case 8 EnigmaControl1.RingSetting9 = Val(Label3(Index)) Case 9 EnigmaControl1.RingSetting10 = Val(Label3(Index)) Case 10 EnigmaControl1.StartPosition1 = Val(Label3(Index)) Case 11 EnigmaControl1.StartPosition2 = Val(Label3(Index)) Case 12 EnigmaControl1.StartPosition3 = Val(Label3(Index)) Case 13 EnigmaControl1.StartPosition4 = Val(Label3(Index)) Case 14 EnigmaControl1.StartPosition5 = Val(Label3(Index)) Case 15 EnigmaControl1.StartPosition6 = Val(Label3(Index)) Case 16 EnigmaControl1.StartPosition7 = Val(Label3(Index)) Case 17 EnigmaControl1.StartPosition8 = Val(Label3(Index)) Case 18 EnigmaControl1.StartPosition9 = Val(Label3(Index)) Case 19 EnigmaControl1.StartPosition10 = Val(Label3(Index)) End Select Label3(Index) = Val(Label3(Index)) - 1 Select Case Index Case 0 EnigmaControl1.RingSetting1 = Val(Label3(Index)) Case 1 EnigmaControl1.RingSetting2 = Val(Label3(Index)) Case 2 EnigmaControl1.RingSetting3 = Val(Label3(Index)) Case 3 EnigmaControl1.RingSetting4 = Val(Label3(Index)) Case 4 EnigmaControl1.RingSetting5 = Val(Label3(Index)) Case 5 EnigmaControl1.RingSetting6 = Val(Label3(Index)) Case 6 EnigmaControl1.RingSetting7 = Val(Label3(Index)) Case 7 EnigmaControl1.RingSetting8 = Val(Label3(Index)) Case 8 EnigmaControl1.RingSetting9 = Val(Label3(Index)) Case 9 EnigmaControl1.RingSetting10 = Val(Label3(Index)) Case 10 EnigmaControl1.StartPosition1 = Val(Label3(Index)) Case 11 EnigmaControl1.StartPosition2 = Val(Label3(Index)) Case 12 EnigmaControl1.StartPosition3 = Val(Label3(Index)) Case 13 EnigmaControl1.StartPosition4 = Val(Label3(Index)) Case 14 EnigmaControl1.StartPosition5 = Val(Label3(Index)) Case 15 EnigmaControl1.StartPosition6 = Val(Label3(Index)) Case 16 EnigmaControl1.StartPosition7 = Val(Label3(Index)) Case 17 EnigmaControl1.StartPosition8 = Val(Label3(Index)) Case 18 EnigmaControl1.StartPosition9 = Val(Label3(Index)) Case 19 EnigmaControl1.StartPosition10 = Val(Label3(Index)) End Select End If End Sub Private Sub UpDown2_UpClick(Index As Integer) If Val(Label3(Index)) >= 255 Then Label3(Index) = 0 Select Case Index Case 0 EnigmaControl1.RingSetting1 = Val(Label3(Index)) Case 1 EnigmaControl1.RingSetting2 = Val(Label3(Index)) Case 2 EnigmaControl1.RingSetting3 = Val(Label3(Index)) Case 3 EnigmaControl1.RingSetting4 = Val(Label3(Index)) Case 4 EnigmaControl1.RingSetting5 = Val(Label3(Index)) Case 5 EnigmaControl1.RingSetting6 = Val(Label3(Index)) Case 6 EnigmaControl1.RingSetting7 = Val(Label3(Index)) Case 7 EnigmaControl1.RingSetting8 = Val(Label3(Index)) Case 8 EnigmaControl1.RingSetting9 = Val(Label3(Index)) Case 9 EnigmaControl1.RingSetting10 = Val(Label3(Index)) Case 10 EnigmaControl1.StartPosition1 = Val(Label3(Index)) Case 11 EnigmaControl1.StartPosition2 = Val(Label3(Index)) Case 12 EnigmaControl1.StartPosition3 = Val(Label3(Index)) Case 13 EnigmaControl1.StartPosition4 = Val(Label3(Index)) Case 14 EnigmaControl1.StartPosition5 = Val(Label3(Index)) Case 15 EnigmaControl1.StartPosition6 = Val(Label3(Index)) Case 16 EnigmaControl1.StartPosition7 = Val(Label3(Index)) Case 17 EnigmaControl1.StartPosition8 = Val(Label3(Index)) Case 18 EnigmaControl1.StartPosition9 = Val(Label3(Index)) Case 19 EnigmaControl1.StartPosition10 = Val(Label3(Index)) End Select Label3(Index) = Val(Label3(Index)) + 1 Select Case Index Case 0 EnigmaControl1.RingSetting1 = Val(Label3(Index)) Case 1 EnigmaControl1.RingSetting2 = Val(Label3(Index)) Case 2 EnigmaControl1.RingSetting3 = Val(Label3(Index)) Case 3 EnigmaControl1.RingSetting4 = Val(Label3(Index)) Case 4 EnigmaControl1.RingSetting5 = Val(Label3(Index)) Case 5 EnigmaControl1.RingSetting6 = Val(Label3(Index)) Case 6 EnigmaControl1.RingSetting7 = Val(Label3(Index)) Case 7 EnigmaControl1.RingSetting8 = Val(Label3(Index)) Case 8 EnigmaControl1.RingSetting9 = Val(Label3(Index)) Case 9 EnigmaControl1.RingSetting10 = Val(Label3(Index)) Case 10 EnigmaControl1.StartPosition1 = Val(Label3(Index)) Case 11 EnigmaControl1.StartPosition2 = Val(Label3(Index)) Case 12 EnigmaControl1.StartPosition3 = Val(Label3(Index)) Case 13 EnigmaControl1.StartPosition4 = Val(Label3(Index)) Case 14 EnigmaControl1.StartPosition5 = Val(Label3(Index)) Case 15 EnigmaControl1.StartPosition6 = Val(Label3(Index)) Case 16 EnigmaControl1.StartPosition7 = Val(Label3(Index)) Case 17 EnigmaControl1.StartPosition8 = Val(Label3(Index)) Case 18 EnigmaControl1.StartPosition9 = Val(Label3(Index)) Case 19 EnigmaControl1.StartPosition10 = Val(Label3(Index)) End Select End If End Sub