'
		' proc que opera marqee 
		'
		sub rolagem(byval p_acao)

			'
			' seleciona acao...
			'
			select case p_acao
				'
				' caso seja 0, entao para scroll
				'
				case 0
					mqeAviso.stop
				'
				' caso seja 1, entao inicia scroll
				'
				case 1
					mqeAviso.Start
				'
				' caso seja 2, entao faz scroll up
				'
				case 2
					mqeAviso.direction = "up"
					rolagem 1
				'
				' caso seja 1, entao faz scroll down
				'
				case 3
					mqeAviso.direction = "down"
					rolagem 1
			end select

		end sub