By: DonX

DonX — Wed, 04 Jul 2007 08:55:00 +0000

yes, Dick, i did something similar:
button:

Private Sub CommandButton1_Click()
If [a1] = 2 Then
[a1] = 1
pasasd
Else: [a1] = 2
End If
End Sub

Sub:

sub pasasd
''procedure
'before each note
If [a1].Value = 2 Then GoTo dug
''continue procedure
'
'
dug:
midiOutClose hMidiOut
End Sub

And I start and stop the playing with the button.
Im just curious as to how to hold onto the variables that seem to be destroyed when there's a runtime error or i hit stop

Comments on: More Dueling Banjos

By: DonX