Visual Basic 4 Multimedia Adventure Set

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

/ Visual Basic 4 Multimedia Adventure Set / Visual_Basic_4_Multimedia_Adventure_Set_Coriolis_Group_1995.iso / sharware / vbpiano / piano2.frm < prev next >

Wrap

Text File | 1995-08-25 | 65KB | 1,916 lines

VERSION 4.00 Begin VB.Form Piano Appearance = 0 'Flat BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Piano" ClientHeight = 2385 ClientLeft = 75 ClientTop = 1845 ClientWidth = 9510 ClipControls = 0 'False BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 3120 Icon = "piano2.frx":0000 Left = 15 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 2385 ScaleWidth = 9510 Top = 1170 Width = 9630 Begin Threed.SSPanel Panel3D3 Height = 975 Left = 90 TabIndex = 20 Top = 1290 Width = 9315 _Version = 65536 _ExtentX = 16431 _ExtentY = 1720 _StockProps = 15 ForeColor = 8421504 BevelWidth = 3 BorderWidth = 0 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":030A DragMode = 1 'Automatic Height = 585 Index = 61 Left = 8640 TabIndex = 82 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":0614 DragMode = 1 'Automatic Height = 585 Index = 63 Left = 8910 TabIndex = 81 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":091E DragMode = 1 'Automatic Height = 585 Index = 1 Left = 240 TabIndex = 73 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":0C28 DragMode = 1 'Automatic Height = 585 Index = 3 Left = 480 TabIndex = 72 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":0F32 DragMode = 1 'Automatic Height = 585 Index = 6 Left = 960 TabIndex = 71 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":123C DragMode = 1 'Automatic Height = 585 Index = 8 Left = 1200 TabIndex = 70 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":1546 DragMode = 1 'Automatic Height = 585 Index = 10 Left = 1440 TabIndex = 69 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":1850 DragMode = 1 'Automatic Height = 585 Index = 13 Left = 1920 TabIndex = 40 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":1B5A DragMode = 1 'Automatic Height = 585 Index = 15 Left = 2160 TabIndex = 39 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":1E64 DragMode = 1 'Automatic Height = 585 Index = 20 Left = 2880 TabIndex = 38 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":216E DragMode = 1 'Automatic Height = 585 Index = 22 Left = 3120 TabIndex = 37 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":2478 DragMode = 1 'Automatic Height = 585 Index = 25 Left = 3600 TabIndex = 36 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":2782 DragMode = 1 'Automatic Height = 585 Index = 27 Left = 3840 TabIndex = 35 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":2A8C DragMode = 1 'Automatic Height = 585 Index = 32 Left = 4560 TabIndex = 34 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":2D96 DragMode = 1 'Automatic Height = 585 Index = 34 Left = 4800 TabIndex = 33 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":30A0 DragMode = 1 'Automatic Height = 585 Index = 37 Left = 5280 TabIndex = 32 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":33AA DragMode = 1 'Automatic Height = 585 Index = 39 Left = 5520 TabIndex = 31 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":36B4 DragMode = 1 'Automatic Height = 585 Index = 44 Left = 6240 TabIndex = 30 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":39BE DragMode = 1 'Automatic Height = 585 Index = 46 Left = 6480 TabIndex = 29 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":3CC8 DragMode = 1 'Automatic Height = 585 Index = 49 Left = 6960 TabIndex = 28 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":3FD2 DragMode = 1 'Automatic Height = 585 Index = 51 Left = 7200 TabIndex = 27 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":42DC DragMode = 1 'Automatic Height = 585 Index = 56 Left = 7920 TabIndex = 26 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":45E6 DragMode = 1 'Automatic Height = 585 Index = 58 Left = 8160 TabIndex = 25 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":48F0 DragMode = 1 'Automatic Height = 585 Index = 18 Left = 2640 TabIndex = 24 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":4BFA DragMode = 1 'Automatic Height = 585 Index = 30 Left = 4320 TabIndex = 23 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":4F04 DragMode = 1 'Automatic Height = 585 Index = 42 Left = 6000 TabIndex = 22 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":520E DragMode = 1 'Automatic Height = 585 Index = 54 Left = 7680 TabIndex = 21 Top = 90 Width = 165 _Version = 65536 _ExtentX = 291 _ExtentY = 1032 _StockProps = 15 ForeColor = 8421504 BackColor = 0 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":5518 DragMode = 1 'Automatic Height = 855 Index = 60 Left = 8490 TabIndex = 85 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":5822 DragMode = 1 'Automatic Height = 855 Index = 62 Left = 8730 TabIndex = 84 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":5B2C DragMode = 1 'Automatic Height = 855 Index = 64 Left = 8970 TabIndex = 83 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":5E36 DragMode = 1 'Automatic Height = 855 Index = 7 Left = 1050 TabIndex = 80 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":6140 DragMode = 1 'Automatic Height = 855 Index = 9 Left = 1290 TabIndex = 79 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":644A DragMode = 1 'Automatic Height = 855 Index = 11 Left = 1530 TabIndex = 78 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":6754 DragMode = 1 'Automatic Height = 855 Index = 4 Left = 570 TabIndex = 77 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":6A5E DragMode = 1 'Automatic Height = 855 Index = 5 Left = 810 TabIndex = 76 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":6D68 DragMode = 1 'Automatic Height = 855 Index = 2 Left = 330 TabIndex = 75 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":7072 DragMode = 1 'Automatic Height = 855 Index = 0 Left = 90 TabIndex = 74 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":737C DragMode = 1 'Automatic Height = 855 Index = 12 Left = 1770 TabIndex = 68 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":7686 DragMode = 1 'Automatic Height = 855 Index = 14 Left = 2010 TabIndex = 67 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":7990 DragMode = 1 'Automatic Height = 855 Index = 16 Left = 2250 TabIndex = 66 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":7C9A DragMode = 1 'Automatic Height = 855 Index = 17 Left = 2490 TabIndex = 65 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":7FA4 DragMode = 1 'Automatic Height = 855 Index = 19 Left = 2730 TabIndex = 64 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":82AE DragMode = 1 'Automatic Height = 855 Index = 21 Left = 2970 TabIndex = 63 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":85B8 DragMode = 1 'Automatic Height = 855 Index = 23 Left = 3210 TabIndex = 62 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":88C2 DragMode = 1 'Automatic Height = 855 Index = 24 Left = 3450 TabIndex = 61 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":8BCC DragMode = 1 'Automatic Height = 855 Index = 26 Left = 3690 TabIndex = 60 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":8ED6 DragMode = 1 'Automatic Height = 855 Index = 28 Left = 3930 TabIndex = 59 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":91E0 DragMode = 1 'Automatic Height = 855 Index = 29 Left = 4170 TabIndex = 58 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":94EA DragMode = 1 'Automatic Height = 855 Index = 31 Left = 4410 TabIndex = 57 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":97F4 DragMode = 1 'Automatic Height = 855 Index = 33 Left = 4650 TabIndex = 56 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":9AFE DragMode = 1 'Automatic Height = 855 Index = 35 Left = 4890 TabIndex = 55 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":9E08 DragMode = 1 'Automatic Height = 855 Index = 36 Left = 5130 TabIndex = 54 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":A112 DragMode = 1 'Automatic Height = 855 Index = 38 Left = 5370 TabIndex = 53 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":A41C DragMode = 1 'Automatic Height = 855 Index = 40 Left = 5610 TabIndex = 52 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":A726 DragMode = 1 'Automatic Height = 855 Index = 41 Left = 5850 TabIndex = 51 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":AA30 DragMode = 1 'Automatic Height = 855 Index = 43 Left = 6090 TabIndex = 50 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":AD3A DragMode = 1 'Automatic Height = 855 Index = 45 Left = 6330 TabIndex = 49 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":B044 DragMode = 1 'Automatic Height = 855 Index = 47 Left = 6570 TabIndex = 48 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":B34E DragMode = 1 'Automatic Height = 855 Index = 48 Left = 6810 TabIndex = 47 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":B658 DragMode = 1 'Automatic Height = 855 Index = 50 Left = 7050 TabIndex = 46 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":B962 DragMode = 1 'Automatic Height = 855 Index = 52 Left = 7290 TabIndex = 45 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":BC6C DragMode = 1 'Automatic Height = 855 Index = 53 Left = 7530 TabIndex = 44 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":BF76 DragMode = 1 'Automatic Height = 855 Index = 55 Left = 7770 TabIndex = 43 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":C280 DragMode = 1 'Automatic Height = 855 Index = 57 Left = 8010 TabIndex = 42 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End Begin Threed.SSPanel PanelWhite DragIcon = "piano2.frx":C58A DragMode = 1 'Automatic Height = 855 Index = 59 Left = 8250 TabIndex = 41 Top = 90 Width = 255 _Version = 65536 _ExtentX = 450 _ExtentY = 1508 _StockProps = 15 ForeColor = 8421504 BackColor = 16777215 BevelWidth = 2 BorderWidth = 2 Outline = -1 'True Font3D = 3 Alignment = 6 Autosize = 3 End End Begin Threed.SSFrame SSFrame4 Height = 1245 Left = 15 TabIndex = 0 Top = 0 Width = 9495 _Version = 65536 _ExtentX = 16748 _ExtentY = 2196 _StockProps = 14 Caption = "Piano Settings" ForeColor = 0 Alignment = 2 ShadowColor = 1 Font3D = 3 ShadowStyle = 1 Begin Threed.SSPanel SSPanel6 Height = 375 Left = 2070 TabIndex = 18 Top = 720 Width = 1695 _Version = 65536 _ExtentX = 2990 _ExtentY = 661 _StockProps = 15 Caption = "SSPanel6" ForeColor = 8421504 BorderWidth = 2 BevelInner = 1 Font3D = 3 Alignment = 6 Autosize = 3 Begin VB.HScrollBar HScrollVolume Height = 255 LargeChange = 10 Left = 60 Max = 127 TabIndex = 19 Top = 60 Value = 50 Width = 1575 End End Begin Threed.SSPanel SSPanel5 Height = 375 Left = 5520 TabIndex = 16 Top = 720 Width = 2415 _Version = 65536 _ExtentX = 4260 _ExtentY = 661 _StockProps = 15 Caption = "SSPanel5" ForeColor = 8421504 BorderWidth = 1 BevelInner = 1 Font3D = 3 Alignment = 6 Autosize = 3 Begin VB.HScrollBar HScrollPatch Height = 285 LargeChange = 10 Left = 45 Max = 127 TabIndex = 17 Top = 45 Value = 1 Width = 2325 End End Begin Threed.SSPanel SSPanel2 Height = 375 Left = 180 TabIndex = 14 Top = 720 Width = 1680 _Version = 65536 _ExtentX = 2963 _ExtentY = 661 _StockProps = 15 Caption = "SSPanel2" ForeColor = 8421504 BorderWidth = 1 BevelInner = 1 Font3D = 3 Alignment = 6 Autosize = 3 Begin VB.HScrollBar HScrollMIDIChannel Height = 285 Left = 45 Max = 15 TabIndex = 15 Top = 45 Value = 1 Width = 1590 End End Begin Threed.SSPanel VolumeLabel Height = 225 Left = 3345 TabIndex = 13 Top = 390 Width = 375 _Version = 65536 _ExtentX = 661 _ExtentY = 397 _StockProps = 15 Caption = "100" ForeColor = 0 BorderWidth = 1 BevelOuter = 0 Font3D = 3 Alignment = 4 Autosize = 3 End Begin Threed.SSPanel MidiChannelOutLabel Height = 225 Left = 1575 TabIndex = 12 Top = 390 Width = 300 _Version = 65536 _ExtentX = 529 _ExtentY = 397 _StockProps = 15 Caption = "1" ForeColor = 0 BorderWidth = 1 BevelOuter = 0 Font3D = 3 Alignment = 4 Autosize = 3 End Begin Threed.SSPanel SSPanel10 Height = 375 Left = 8100 TabIndex = 11 Top = 300 Width = 1185 _Version = 65536 _ExtentX = 2090 _ExtentY = 661 _StockProps = 15 Caption = "L - Pan - R" ForeColor = 0 BorderWidth = 0 BevelOuter = 1 BevelInner = 2 FloodShowPct = 0 'False Font3D = 3 Autosize = 3 End Begin Threed.SSPanel SSPanel9 Height = 375 Index = 0 Left = 2070 TabIndex = 10 Top = 300 Width = 1230 _Version = 65536 _ExtentX = 2170 _ExtentY = 661 _StockProps = 15 Caption = "Volume" ForeColor = 0 BorderWidth = 0 BevelOuter = 1 BevelInner = 2 FloodShowPct = 0 'False Font3D = 3 Alignment = 1 Autosize = 3 End Begin Threed.SSPanel PatchLabel Height = 375 Left = 6150 TabIndex = 9 Top = 300 Width = 1785 _Version = 65536 _ExtentX = 3149 _ExtentY = 661 _StockProps = 15 Caption = "Electric Piano 2 " ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} name = "Small Fonts" charset = 0 weight = 700 size = 6 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty BorderWidth = 0 BevelOuter = 1 BevelInner = 2 Font3D = 3 Autosize = 3 End Begin Threed.SSPanel SSPanel8 Height = 375 Left = 5535 TabIndex = 8 Top = 300 Width = 615 _Version = 65536 _ExtentX = 1085 _ExtentY = 661 _StockProps = 15 Caption = "Patch" ForeColor = 0 BorderWidth = 0 BevelOuter = 1 BevelInner = 2 Font3D = 3 Alignment = 1 Autosize = 3 End Begin Threed.SSPanel SSPanel7 Height = 375 Left = 180 TabIndex = 7 Top = 300 Width = 1275 _Version = 65536 _ExtentX = 2249 _ExtentY = 661 _StockProps = 15 Caption = "MIDI Channel " ForeColor = 0 BorderWidth = 0 BevelOuter = 1 BevelInner = 2 Font3D = 3 Alignment = 1 Autosize = 3 End Begin Threed.SSPanel Panel3D1 Height = 375 Left = 8100 TabIndex = 5 Top = 720 Width = 1215 _Version = 65536 _ExtentX = 2143 _ExtentY = 661 _StockProps = 15 Caption = "SSPanel6" ForeColor = 8421504 BorderWidth = 2 BevelInner = 1 Font3D = 3 Alignment = 6 Autosize = 3 Begin VB.HScrollBar HScrollPan Height = 255 LargeChange = 10 Left = 60 Max = 127 TabIndex = 6 Top = 60 Width = 1095 End End Begin Threed.SSPanel Panel3D2 Height = 375 Left = 4050 TabIndex = 3 Top = 720 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 661 _StockProps = 15 Caption = "SSPanel6" ForeColor = 8421504 BorderWidth = 2 BevelInner = 1 Font3D = 3 Alignment = 6 Autosize = 3 Begin VB.HScrollBar HScrollOctave Height = 255 Left = 60 Max = 4 TabIndex = 4 Top = 60 Value = 2 Width = 1080 End End Begin Threed.SSPanel SSPanel9 Height = 375 Index = 1 Left = 4050 TabIndex = 2 Top = 300 Width = 735 _Version = 65536 _ExtentX = 1296 _ExtentY = 661 _StockProps = 15 Caption = "Octave" ForeColor = 0 BorderWidth = 0 BevelOuter = 1 BevelInner = 2 FloodShowPct = 0 'False Font3D = 3 Alignment = 1 Autosize = 3 End Begin Threed.SSPanel LabelOctave Height = 225 Left = 4950 TabIndex = 1 Top = 390 Width = 300 _Version = 65536 _ExtentX = 529 _ExtentY = 397 _StockProps = 15 Caption = "1" ForeColor = 0 BorderWidth = 1 BevelOuter = 0 Font3D = 3 Alignment = 4 Autosize = 3 End End Begin VB.Menu File Caption = "&File" Begin VB.Menu Exit Caption = "E&xit" End End Begin VB.Menu help Caption = "&Help" Begin VB.Menu About Caption = "&About" End End End Attribute VB_Name = "Piano" Attribute VB_Creatable = False Attribute VB_Exposed = False Dim NoteCatchCount As Integer Dim NoteOnCatcher(1024) As Integer Private Sub About_Click() AboutBox1.Show MODAL End Sub Private Sub Exit_Click() X% = midiOutClose(hMidiOutCopy) End End Sub Private Sub Form_Load() Screen.MousePointer = 11 Piano.Left = 0 Piano.Top = 0 ' Open Midi Driver MidiOutOpenPort HScrollMIDIChannel.Value = 13 HScrollPatch.Value = 0 HScrollVolume.Value = 100 HScrollPan.Value = 64 HScrollOctave.Value = 2 Screen.MousePointer = 0 End Sub Private Sub Form_Unload(Cancel As Integer) X% = midiOutClose(hMidiOutCopy) End End Sub Private 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 Private Sub HScrollOctave_Change() LabelOctave.Caption = Str$(HScrollOctave.Value) Octave(MidiChannelOut) = (HScrollOctave.Value * 12) End Sub Private 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 Private 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 Private Sub HScrollVolume_Change() MidiVelocity = HScrollVolume.Value MidiVolume(MidiChannelOut) = HScrollVolume.Value VolumeLabel.Caption = Str$(MidiVelocity) End Sub Private 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 Piano.PanelWhite(NoteOnCatcher(nn) - Octave(MidiChannelOut)).BevelOuter = 2 Next nn NoteCatchCount = 0 End Sub Private 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 Piano.PanelWhite(Index).BevelOuter = 0 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