'	GlobalPlayBacktab1 = 1
'	GlobalPlayBacktab2 = 1
'	GlobalPlayBacktab3 = 1

	Sub CheckLoop_OnClick1(imag,obj)
		If (obj.PlayBack > 255) Then
			obj.PlayBack = obj.PlayBack AND 255
			imag.src=arrimages(8).src
		Else
			obj.PlayBack = obj.PlayBack OR 256
		End If
	End Sub

	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