Sub stopm(id)
id.scrollAmount=0
End Sub

Sub beginm(id)
id.scrollAmount=2
End Sub