这样只是从一边到那边啊!!怎么样点一下就回来,从新动呢?Private Sub Command1_Click()Label1.Left = 50Timer1.Enabled = fasle
End Sub
Private Sub Timer1_Timer()Label1.Left = Label1.Left + 50
真的不行啊
上或者下称为滚动label1.left=label1.left+50 是控制左右的要滚动的话要设置top值我写了个最简单的设timer1.interval=50 time41.enable=false设label1.caption="i love you forever,vb" 程序代码:(不知道是不是你要的)Private Sub Form_Click()Timer1.Enabled = TrueEnd Sub
Private Sub Timer1_Timer()Label1.Top = Label1.Top - 1End Sub