'timer2 set at 100mS intervals
Sub timer2_Tick
Dim n As Int
.
.
.
If MP1.IsPlaying And col(n) <> Colors.Blue Then
If col(n) = Colors.Yellow Then
MP1.Pause
colbtn(n).Color = Colors.Green
'DoEvents from b4a was here
End If
End If
'DoEvents from b4a was here
.
. 'process other buttons
.
End Sub