问个文本显示的控制的有关问题

问个文本显示的控制的问题
继续问个简单的问题,一个Command,要实现一个文本不停的翻页显示,点击Command,就停止翻页,在点一次就继续显示呢    

这个command下面应该怎么写  


在线等

[解决办法]
用timer控件

sub command1_click()
timer1.enable=not timer1.enable
end sub

在Timer的OnTimer事件里写翻页代码