Sub BtnPlayMIDI_OnClick1(obj)
		obj.PlayBack = obj.PlayBack AND 256
		obj.Play
	End Sub

	Sub Tab1_StretchDone()
		GlobalPlayBacktab1 = 3
	End Sub
''''''''''''''''''''''''''''
	Sub Tab2_StretchDone()
		GlobalPlayBacktab2 = 3
	End Sub
''''''''''''''''''''''''''''
	Sub Tab3_StretchDone()
		GlobalPlayBacktab3 = 3
	End Sub