文字滚动软件 vb中怎么利用timer控制label中的文字滚动,并且可以通过command改变滚动方向(从左向右及从右向左)?

vb中怎么利用timer控制label中的文字滚动,并且可以通过command改变滚动方向(从左向右及从右向左)?Option ExplicitDim W As LongPrivate Sub Com

vb中怎么利用timer控制label中的文字滚动,并且可以通过command改变滚动方向(从左向右及从右向左)?

Option ExplicitDim W As LongPrivate Sub Command1u Click()Timer1.Interval=100End Sub Private Sub Command2u Click()Timer1.Interval=0End Sub Private Sub Timer1u Timer()W=WidthIf Label1.Left