home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
tool
/
sound
/
midiww
/
form3.frm
< prev
next >
Wrap
Text File
|
1995-02-27
|
38KB
|
1,361 lines
VERSION 2.00
Begin Form Form3
BackColor = &H00C0C0C0&
Caption = "Instrument"
ClientHeight = 4140
ClientLeft = 1080
ClientTop = 1485
ClientWidth = 8010
Height = 4665
Left = 1020
LinkTopic = "Form3"
MDIChild = -1 'True
ScaleHeight = 4140
ScaleWidth = 8010
Top = 1020
Width = 8130
Begin Timer Timer1
Interval = 500
Left = 4440
Top = 960
End
Begin MidiWW MidiWW1
Left = 3720
Top = 960
End
Begin CheckBox Check1
BackColor = &H00C0C0C0&
Caption = "Echo"
Height = 255
Left = 3600
TabIndex = 8
Top = 1560
Width = 855
End
Begin CommandButton Command3
Caption = "Bye!"
Height = 495
Left = 3600
TabIndex = 6
Top = 360
Width = 855
End
Begin ListBox List2
Height = 615
Left = 5040
TabIndex = 0
Top = 360
Width = 2655
End
Begin ListBox List1
Height = 615
Left = 360
TabIndex = 3
Top = 360
Width = 2655
End
Begin CommandButton Command2
Caption = "Stop"
Height = 495
Left = 5040
TabIndex = 2
Top = 1320
Width = 2655
End
Begin CommandButton Command1
Caption = "Start"
Height = 495
Left = 360
TabIndex = 1
Top = 1320
Width = 2655
End
Begin Label Label3
BackColor = &H00C0C0C0&
Caption = "Click on the keyboard below to play notes. Echo repeats notes received from the Input Device to the Output Device."
Height = 495
Left = 360
TabIndex = 9
Top = 2040
Width = 7335
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "Copyright (c) 1994 W. Washington"
Height = 255
Left = 240
TabIndex = 7
Top = 3840
Width = 3855
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "Output Devices:"
Height = 255
Left = 5040
TabIndex = 5
Top = 120
Width = 2055
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Input Devices:"
Height = 255
Left = 360
TabIndex = 4
Top = 120
Width = 1935
End
Begin Image Image1
Height = 555
Index = 70
Left = 7560
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 68
Left = 7380
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 66
Left = 7200
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 63
Left = 6840
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 61
Left = 6660
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 58
Left = 6300
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 56
Left = 6120
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 54
Left = 5940
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 51
Left = 5580
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 49
Left = 5400
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 46
Left = 5040
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 44
Left = 4860
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 42
Left = 4680
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 39
Left = 4320
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 37
Left = 4140
Top = 2760
Width = 135
End
Begin Image Image1
Height = 855
Index = 71
Left = 7620
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 69
Left = 7440
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 67
Left = 7260
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 65
Left = 7080
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 64
Left = 6900
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 62
Left = 6720
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 60
Left = 6540
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 59
Left = 6360
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 57
Left = 6180
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 55
Left = 6000
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 53
Left = 5820
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 52
Left = 5640
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 50
Left = 5460
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 48
Left = 5280
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 47
Left = 5100
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 45
Left = 4920
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 43
Left = 4740
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 41
Left = 4560
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 40
Left = 4380
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 38
Left = 4200
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 36
Left = 4020
Top = 2760
Width = 195
End
Begin Image Image1
Height = 555
Index = 34
Left = 3780
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 32
Left = 3600
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 30
Left = 3420
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 27
Left = 3060
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 25
Left = 2880
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 22
Left = 2520
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 20
Left = 2340
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 18
Left = 2160
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 15
Left = 1800
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 13
Left = 1620
Top = 2760
Width = 135
End
Begin Image Image1
Height = 855
Index = 35
Left = 3840
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 33
Left = 3660
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 31
Left = 3480
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 29
Left = 3300
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 28
Left = 3120
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 26
Left = 2940
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 24
Left = 2760
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 23
Left = 2580
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 21
Left = 2400
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 19
Left = 2220
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 17
Left = 2040
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 16
Left = 1860
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 14
Left = 1680
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 12
Left = 1500
Top = 2760
Width = 195
End
Begin Image Image1
Height = 555
Index = 10
Left = 1260
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 8
Left = 1080
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 6
Left = 900
Top = 2760
Width = 135
End
Begin Image Image1
Height = 855
Index = 5
Left = 780
Top = 2760
Width = 195
End
Begin Image Image1
Height = 555
Index = 3
Left = 540
Top = 2760
Width = 135
End
Begin Image Image1
Height = 555
Index = 1
Left = 360
Top = 2760
Width = 135
End
Begin Image Image1
Height = 855
Index = 0
Left = 240
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 4
Left = 600
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 7
Left = 960
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 9
Left = 1140
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 11
Left = 1320
Top = 2760
Width = 195
End
Begin Image Image1
Height = 855
Index = 2
Left = 420
Top = 2760
Width = 195
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 70
Left = 7560
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 68
Left = 7380
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 66
Left = 7200
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 63
Left = 6840
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 61
Left = 6660
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 58
Left = 6300
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 56
Left = 6120
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 54
Left = 5940
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 51
Left = 5580
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 49
Left = 5400
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 46
Left = 5040
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 44
Left = 4860
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 42
Left = 4680
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 39
Left = 4320
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 37
Left = 4140
Top = 2760
Width = 135
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 71
Left = 7620
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 69
Left = 7440
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 67
Left = 7260
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 65
Left = 7080
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 64
Left = 6900
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 62
Left = 6720
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 60
Left = 6540
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 59
Left = 6360
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 57
Left = 6180
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 55
Left = 6000
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 53
Left = 5820
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 52
Left = 5640
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 50
Left = 5460
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 48
Left = 5280
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 47
Left = 5100
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 45
Left = 4920
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 43
Left = 4740
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 41
Left = 4560
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 40
Left = 4380
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 38
Left = 4200
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 36
Left = 4020
Top = 2760
Width = 195
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 34
Left = 3780
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 32
Left = 3600
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 30
Left = 3420
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 27
Left = 3060
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 25
Left = 2880
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 22
Left = 2520
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 20
Left = 2340
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 18
Left = 2160
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 15
Left = 1800
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 13
Left = 1620
Top = 2760
Width = 135
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 35
Left = 3840
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 33
Left = 3660
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 31
Left = 3480
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 29
Left = 3300
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 28
Left = 3120
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 26
Left = 2940
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 24
Left = 2760
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 23
Left = 2580
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 21
Left = 2400
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 19
Left = 2220
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 17
Left = 2040
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 16
Left = 1860
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 14
Left = 1680
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 12
Left = 1500
Top = 2760
Width = 195
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 10
Left = 1260
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 8
Left = 1080
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 6
Left = 900
Top = 2760
Width = 135
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 5
Left = 780
Top = 2760
Width = 195
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 3
Left = 540
Top = 2760
Width = 135
End
Begin Shape Shape1
FillStyle = 0 'Solid
Height = 555
Index = 1
Left = 360
Top = 2760
Width = 135
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 0
Left = 240
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 4
Left = 600
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 7
Left = 960
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 9
Left = 1140
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 11
Left = 1320
Top = 2760
Width = 195
End
Begin Shape Shape1
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 855
Index = 2
Left = 420
Top = 2760
Width = 195
End
Begin Shape Shape2
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 1095
Left = 120
Shape = 4 'Rounded Rectangle
Top = 2640
Width = 7815
End
End
Sub Command1_Click ()
If List2.ListIndex = MidiWW1.NumOutDevs Then
' enable Midi Mapper
MidiWW1.OutputDevice = -1
Else
MidiWW1.OutputDevice = List2.ListIndex
End If
MidiWW1.OutputEnabled = True
If MidiWW1.ErrorNum <> 0 Then
MsgBox MidiWW1.ErrorText
End If
MidiWW1.InputDevice = List1.ListIndex
MidiWW1.InputEnabled = True
If MidiWW1.ErrorNum <> 0 Then
MsgBox MidiWW1.ErrorText
End If
DoEvents ' Give control time to process commands
End Sub
Sub Command2_Click ()
MidiWW1.OutputEnabled = False
If MidiWW1.ErrorNum <> 0 Then
MsgBox MidiWW1.ErrorText
End If
MidiWW1.InputEnabled = False
If MidiWW1.ErrorNum <> 0 Then
MsgBox MidiWW1.ErrorText
End If
End Sub
Sub Command3_Click ()
End
End Sub
Sub Form_Load ()
For i = 0 To MidiWW1.NumInDevs - 1
MidiWW1.InputDevice = i
List1.AddItem MidiWW1.ProductName
Next i
For i = 0 To MidiWW1.NumOutDevs - 1
MidiWW1.OutputDevice = i
List2.AddItem MidiWW1.ProductName
Next i
List2.AddItem "Midi Mapper"
If List1.ListCount > 0 Then
List1.ListIndex = 0
End If
List2.ListIndex = 0
End Sub
Sub Form_Resize ()
If WindowState <> 1 Then
Top = 0
Left = 0
Height = MDIForm1.ScaleHeight
Width = MDIForm1.ScaleWidth
End If
End Sub
Sub Image1_Click (Index As Integer)
MidiWW1.ShortMsg = &H600090 + (Index + 36) * 256
MidiWW1.ShortMsg = &H600080 + (Index + 36) * 256
End Sub
Sub KeyBoard (Msg As Long)
Dim Status As Integer
Dim Note As Integer
Dim Force As Long
Dim Key As Integer
' Since Midi can produce many messages, keep this
' routine as small as possible to avoid losing messages.
Status = Msg And 255
If Status = &H90 Or Status = &H80 Then
Note = Int(Msg / 256#) And 255
Force = Msg And &HFF0000
Key = Note - 36
If Key <= 70 Then
If Status = &H90 And Force <> 0 Then
Shape1(Key).FillColor = &HFF
Else
If Shape1(Key).Height < 700 Then
Shape1(Key).FillColor = &H0
Else
Shape1(Key).FillColor = &HFFFFFF
End If
End If
End If
End If
End Sub
Sub Timer1_Timer ()
If MidiWW1.InCount > 0 Then
MsgCount% = MidiWW1.InCount
For i% = 0 To MsgCount%
TempMsg& = MidiWW1.Msg
If TempMsg& <> 0 Then
If Check1.Value <> 0 Then
MidiWW1.OutputTime = MidiWW1.InputTime
MidiWW1.Msg = TempMsg&
End If
End If
Next i%
End If
End Sub