Programming Tool Box

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

/ Programming Tool Box / SIMS_2.iso / code / sound / vbpian / piano2.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-26 | 53.1 KB | 1,482 lines

VERSION 2.00 Begin Form Piano BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Piano" ClientHeight = 2385 ClientLeft = 60 ClientTop = 975 ClientWidth = 9510 ClipControls = 0 'False Height = 3315 Icon = PIANO2.FRX:0000 Left = 0 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 2385 ScaleWidth = 9510 Top = 105 Width = 9630 Begin SSPanel Panel3D3 Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BevelWidth = 3 BorderWidth = 0 ForeColor = &H00808080& Height = 975 Left = 90 Outline = -1 'True TabIndex = 20 Top = 1290 Width = 9315 Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:0302 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 61 Left = 8640 Outline = -1 'True TabIndex = 82 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:0604 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 63 Left = 8910 Outline = -1 'True TabIndex = 81 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:0906 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 1 Left = 240 Outline = -1 'True TabIndex = 73 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:0C08 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 3 Left = 480 Outline = -1 'True TabIndex = 72 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:0F0A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 5 Left = 960 Outline = -1 'True TabIndex = 71 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:120C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 8 Left = 1200 Outline = -1 'True TabIndex = 70 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:150E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 10 Left = 1440 Outline = -1 'True TabIndex = 69 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:1810 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 13 Left = 1920 Outline = -1 'True TabIndex = 40 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:1B12 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 15 Left = 2160 Outline = -1 'True TabIndex = 39 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:1E14 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 20 Left = 2880 Outline = -1 'True TabIndex = 38 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:2116 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 22 Left = 3120 Outline = -1 'True TabIndex = 37 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:2418 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 25 Left = 3600 Outline = -1 'True TabIndex = 36 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:271A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 27 Left = 3840 Outline = -1 'True TabIndex = 35 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:2A1C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 32 Left = 4560 Outline = -1 'True TabIndex = 34 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:2D1E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 34 Left = 4800 Outline = -1 'True TabIndex = 33 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:3020 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 37 Left = 5280 Outline = -1 'True TabIndex = 32 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:3322 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 39 Left = 5520 Outline = -1 'True TabIndex = 31 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:3624 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 44 Left = 6240 Outline = -1 'True TabIndex = 30 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:3926 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 46 Left = 6480 Outline = -1 'True TabIndex = 29 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:3C28 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 49 Left = 6960 Outline = -1 'True TabIndex = 28 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:3F2A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 51 Left = 7200 Outline = -1 'True TabIndex = 27 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:422C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 56 Left = 7920 Outline = -1 'True TabIndex = 26 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:452E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 58 Left = 8160 Outline = -1 'True TabIndex = 25 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:4830 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 17 Left = 2640 Outline = -1 'True TabIndex = 24 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:4B32 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 29 Left = 4320 Outline = -1 'True TabIndex = 23 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:4E34 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 41 Left = 6000 Outline = -1 'True TabIndex = 22 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00000000& BorderWidth = 2 DragIcon = PIANO2.FRX:5136 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 585 Index = 53 Left = 7680 Outline = -1 'True TabIndex = 21 Top = 90 Width = 165 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:5438 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 60 Left = 8490 Outline = -1 'True TabIndex = 85 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:573A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 62 Left = 8730 Outline = -1 'True TabIndex = 84 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:5A3C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 64 Left = 8970 Outline = -1 'True TabIndex = 83 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:5D3E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 7 Left = 1050 Outline = -1 'True TabIndex = 80 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:6040 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 9 Left = 1290 Outline = -1 'True TabIndex = 79 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:6342 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 11 Left = 1530 Outline = -1 'True TabIndex = 78 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:6644 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 4 Left = 570 Outline = -1 'True TabIndex = 77 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:6946 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 6 Left = 810 Outline = -1 'True TabIndex = 76 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:6C48 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 2 Left = 330 Outline = -1 'True TabIndex = 75 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:6F4A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 0 Left = 90 Outline = -1 'True TabIndex = 74 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:724C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 12 Left = 1770 Outline = -1 'True TabIndex = 68 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:754E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 14 Left = 2010 Outline = -1 'True TabIndex = 67 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:7850 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 16 Left = 2250 Outline = -1 'True TabIndex = 66 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:7B52 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 18 Left = 2490 Outline = -1 'True TabIndex = 65 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:7E54 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 19 Left = 2730 Outline = -1 'True TabIndex = 64 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:8156 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 21 Left = 2970 Outline = -1 'True TabIndex = 63 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:8458 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 23 Left = 3210 Outline = -1 'True TabIndex = 62 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:875A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 24 Left = 3450 Outline = -1 'True TabIndex = 61 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:8A5C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 26 Left = 3690 Outline = -1 'True TabIndex = 60 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:8D5E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 28 Left = 3930 Outline = -1 'True TabIndex = 59 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:9060 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 30 Left = 4170 Outline = -1 'True TabIndex = 58 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:9362 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 31 Left = 4410 Outline = -1 'True TabIndex = 57 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:9664 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 33 Left = 4650 Outline = -1 'True TabIndex = 56 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:9966 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 35 Left = 4890 Outline = -1 'True TabIndex = 55 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:9C68 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 36 Left = 5130 Outline = -1 'True TabIndex = 54 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:9F6A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 38 Left = 5370 Outline = -1 'True TabIndex = 53 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:A26C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 40 Left = 5610 Outline = -1 'True TabIndex = 52 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:A56E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 42 Left = 5850 Outline = -1 'True TabIndex = 51 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:A870 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 43 Left = 6090 Outline = -1 'True TabIndex = 50 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:AB72 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 45 Left = 6330 Outline = -1 'True TabIndex = 49 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:AE74 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 47 Left = 6570 Outline = -1 'True TabIndex = 48 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:B176 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 48 Left = 6810 Outline = -1 'True TabIndex = 47 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:B478 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 50 Left = 7050 Outline = -1 'True TabIndex = 46 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:B77A DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 52 Left = 7290 Outline = -1 'True TabIndex = 45 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:BA7C DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 54 Left = 7530 Outline = -1 'True TabIndex = 44 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:BD7E DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 55 Left = 7770 Outline = -1 'True TabIndex = 43 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:C080 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 57 Left = 8010 Outline = -1 'True TabIndex = 42 Top = 90 Width = 255 End Begin SSPanel PanelWhite Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BackColor = &H00FFFFFF& BevelWidth = 2 BorderWidth = 2 DragIcon = PIANO2.FRX:C382 DragMode = 1 'Automatic ForeColor = &H00808080& Height = 855 Index = 59 Left = 8250 Outline = -1 'True TabIndex = 41 Top = 90 Width = 255 End End Begin SSFrame SSFrame4 Alignment = 2 'Center Caption = "Piano Settings" ForeColor = &H00000000& Height = 1245 Left = 0 ShadowColor = 1 'Black ShadowStyle = 1 'Raised TabIndex = 0 Top = 0 Width = 9585 Begin SSPanel SSPanel6 Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BevelInner = 1 'Inset BorderWidth = 2 Caption = "SSPanel6" ForeColor = &H00808080& Height = 375 Left = 2070 TabIndex = 18 Top = 720 Width = 1695 Begin HScrollBar HScrollVolume Height = 255 LargeChange = 10 Left = 60 Max = 127 TabIndex = 19 Top = 60 Value = 50 Width = 1575 End End Begin SSPanel SSPanel5 Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BevelInner = 1 'Inset BorderWidth = 1 Caption = "SSPanel5" ForeColor = &H00808080& Height = 375 Left = 5520 TabIndex = 16 Top = 720 Width = 2415 Begin HScrollBar HScrollPatch Height = 285 LargeChange = 10 Left = 45 Max = 127 TabIndex = 17 Top = 45 Value = 1 Width = 2325 End End Begin SSPanel SSPanel2 Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BevelInner = 1 'Inset BorderWidth = 1 Caption = "SSPanel2" ForeColor = &H00808080& Height = 375 Left = 180 TabIndex = 14 Top = 720 Width = 1680 Begin HScrollBar HScrollMIDIChannel Height = 285 LargeChange = 2 Left = 45 Max = 15 TabIndex = 15 Top = 45 Value = 1 Width = 1590 End End Begin SSPanel VolumeLabel Alignment = 4 'Right Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelOuter = 0 'None BorderWidth = 1 Caption = "100" ForeColor = &H00000000& Height = 225 Left = 3285 TabIndex = 13 Top = 390 Width = 435 End Begin SSPanel MidiChannelOutLabel Alignment = 4 'Right Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelOuter = 0 'None BorderWidth = 1 Caption = "1" ForeColor = &H00000000& Height = 225 Left = 1575 TabIndex = 12 Top = 390 Width = 300 End Begin SSPanel SSPanel10 AutoSize = 3 'AutoSize Child To Panel BevelInner = 2 'Raised BevelOuter = 1 'Inset BorderWidth = 0 Caption = "L - Pan - R" FloodShowPct = 0 'False ForeColor = &H00000000& Height = 375 Left = 8100 TabIndex = 11 Top = 300 Width = 1185 End Begin SSPanel SSPanel9 Alignment = 1 'Left Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelInner = 2 'Raised BevelOuter = 1 'Inset BorderWidth = 0 Caption = "Volume" FloodShowPct = 0 'False ForeColor = &H00000000& Height = 375 Index = 0 Left = 2070 TabIndex = 10 Top = 300 Width = 1230 End Begin SSPanel PatchLabel AutoSize = 3 'AutoSize Child To Panel BevelInner = 2 'Raised BevelOuter = 1 'Inset BorderWidth = 0 Caption = "Electric Piano 2 " FontBold = -1 'True FontItalic = 0 'False FontName = "Small Fonts" FontSize = 6.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 375 Left = 6150 TabIndex = 9 Top = 300 Width = 1785 End Begin SSPanel SSPanel8 Alignment = 1 'Left Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelInner = 2 'Raised BevelOuter = 1 'Inset BorderWidth = 0 Caption = "Patch" ForeColor = &H00000000& Height = 375 Left = 5535 TabIndex = 8 Top = 300 Width = 615 End Begin SSPanel SSPanel7 Alignment = 1 'Left Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelInner = 2 'Raised BevelOuter = 1 'Inset BorderWidth = 0 Caption = "MIDI Channel " ForeColor = &H00000000& Height = 375 Left = 180 TabIndex = 7 Top = 300 Width = 1275 End Begin SSPanel Panel3D1 Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BevelInner = 1 'Inset BorderWidth = 2 Caption = "SSPanel6" ForeColor = &H00808080& Height = 375 Left = 8100 TabIndex = 5 Top = 720 Width = 1215 Begin HScrollBar HScrollPan Height = 255 LargeChange = 10 Left = 60 Max = 127 TabIndex = 6 Top = 60 Width = 1095 End End Begin SSPanel Panel3D2 Alignment = 6 'Center - TOP AutoSize = 3 'AutoSize Child To Panel BevelInner = 1 'Inset BorderWidth = 2 Caption = "SSPanel6" ForeColor = &H00808080& Height = 375 Left = 4050 TabIndex = 3 Top = 720 Width = 1200 Begin HScrollBar HScrollOctave Height = 255 LargeChange = 10 Left = 60 Max = 4 TabIndex = 4 Top = 60 Value = 2 Width = 1080 End End Begin SSPanel SSPanel9 Alignment = 1 'Left Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelInner = 2 'Raised BevelOuter = 1 'Inset BorderWidth = 0 Caption = "Octave" FloodShowPct = 0 'False ForeColor = &H00000000& Height = 375 Index = 1 Left = 4050 TabIndex = 2 Top = 300 Width = 735 End Begin SSPanel LabelOctave Alignment = 4 'Right Justify - MIDDLE AutoSize = 3 'AutoSize Child To Panel BevelOuter = 0 'None BorderWidth = 1 Caption = "1" ForeColor = &H00000000& Height = 225 Left = 4950 TabIndex = 1 Top = 390 Width = 300 End End Begin Menu File Caption = "&File" Begin Menu Exit Caption = "E&xit" End End Begin Menu help Caption = "&Help" Begin Menu About Caption = "&About" End End Dim NoteCatchCount As Integer Dim NoteOnCatcher(1024) As Integer Sub About_Click () AboutBox1.Show Modal End Sub Sub Exit_Click () X% = MidiOutClose(hmidioutcopy) End End Sub Sub Form_Load () Screen.MousePointer = 11 Piano.Left = 0 Piano.Top = 0 ' Open Midi Driver MidiOutOpenPort HScrollMIDIChannel.Value = 0 HScrollPatch.Value = 0 HScrollVolume.Value = 100 HScrollPan.Value = 64 HScrollOctave.Value = 0 Screen.MousePointer = 0 End Sub Sub Form_Unload (Cancel As Integer) X% = MidiOutClose(hmidioutcopy) End Sub Sub HScrollMIDIChannel_Change () ' Change Midi Channel to Vscroll1 value MidiChannelOut = HScrollMIDIChannel.Value ' Display new channel MidiChannelOutLabel.Caption = Str$(MidiChannelOut + 1) ' Sets the Patch & Volume for the current Midi Channel Out HScrollPatch.Value = MidiPatch(MidiChannelOut) HScrollVolume.Value = MidiVolume(MidiChannelOut) HScrollPan.Value = MidiPan(MidiChannelOut) HScrollOctave.Value = Octave(MidiChannelOut) / 12 End Sub Sub HScrollOctave_Change () LabelOctave.Caption = Str$(HScrollOctave.Value) Octave(MidiChannelOut) = (HScrollOctave.Value * 12) End Sub Sub HScrollPan_Change () MidiPan(MidiChannelOut) = HScrollPan.Value ' 05-16-92 Pan Midi Out routine MidiEventOut = 176 + MidiChannelOut MidiNoteOut = 10 MidiVelOut = MidiPan(MidiChannelOut) SendMidiOut End Sub Sub HScrollPatch_Change () ' Sets the Patch for the current Midi Channel Out MidiPatch(MidiChannelOut) = HScrollPatch.Value ReadPatch ' 05-15-92 Patch Midi Out routine MidiEventOut = &HC0 + MidiChannelOut MidiNoteOut = MidiPatch(MidiChannelOut) MidiVelOut = 0 SendMidiOut End Sub Sub HScrollVolume_Change () MidiVelocity = HScrollVolume.Value MidiVolume(MidiChannelOut) = HScrollVolume.Value VolumeLabel.Caption = Str$(MidiVelocity) End Sub Sub PanelWhite_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single) For nn = 0 To NoteCatchCount - 1 MidiEventOut = 144 + MidiChannelOut MidiVelOut = 0 MidiNoteOut = NoteOnCatcher(nn) SendMidiOut NoteMOD = (NoteOnCatcher(nn) - Octave(MidiChannelOut)) Mod 12 If NoteMOD = 0 Or NoteMOD = 2 Or NoteMOD = 4 Or NoteMOD = 5 Or NoteMOD = 7 Or NoteMOD = 9 Or NoteMOD = 11 Then Piano.PanelWhite(NoteOnCatcher(nn) - Octave(MidiChannelOut)).BevelOuter = 2 Else Piano.PanelWhite(NoteOnCatcher(nn) - Octave(MidiChannelOut)).BevelOuter = 2 End If Next nn NoteCatchCount = 0 End Sub Sub PanelWhite_DragOver (Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) 'If still on same note, discard If NoteCatchCount > 0 Then If NoteOnCatcher(NoteCatchCount - 1) = Index + Octave(MidiChannelOut) Then Exit Sub End If End If NoteMOD = (Index) Mod 12 If NoteMOD = 0 Or NoteMOD = 2 Or NoteMOD = 4 Or NoteMOD = 5 Or NoteMOD = 7 Or NoteMOD = 9 Or NoteMOD = 11 Then Piano.PanelWhite(Index).BevelOuter = 0 Else Piano.PanelWhite(Index).BevelOuter = 0 End If MidiEventOut = 144 + MidiChannelOut MidiVelOut = MidiVelocity MidiNoteOut = Index + Octave(MidiChannelOut) SendMidiOut 'Since drag/drop is being used, we must keep track of the note being played. NoteOnCatcher(NoteCatchCount) = MidiNoteOut If NoteCatchCount < 750 Then 'Don't let array get out of range NoteCatchCount = NoteCatchCount + 1 End If End Sub