用 VB设计字从左到右，从右到左，从上到下，从下到上的滑动

分别用四个计时器对该对应的字进行设置，如果字滑动到了窗体边就从窗体的另一边过来，以此类推...

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End SubPrivate Sub Timer1_Timer()
If Label1.Left <= Form1.Width - Label1.Width Then
Label1.Left = Label1.Left + 50
Else
Label1.Left = 0
End If
End SubPrivate Sub Timer2_Timer()
If Label2.Top <= Form1.Height - Label2.Height Then
Label2.Top = Label2.Top + 50
Else
Label2.Top = 0
End If
End SubPrivate Sub Timer3_Timer()
If Label3.Top >= 0 Then
Label3.Top = Label3.Top - 50
Else
Label3.Top = Form1.Height - Label3.Height
End If
End SubPrivate Sub Timer4_Timer()
If Label4.Left > 0 Then
Label4.Left = Label4.Left - 50
Else
Label4.Left = Form1.Width
End If
End Sub

添加下面代码到窗体中测试，在窗体上添加4个按钮，按command1，向上滚动，按command2向下滚动，按command3向左滚动，按command4向右滚动

private sub command1_click() timer1.enabled = true timer2.enabled = false timer3.enabled = false timer4.enabled = false end sub private sub command2_click() timer1.enabled = false timer2.enabled = true timer3.enabled = false timer4.enabled = false end sub private sub command3_click() timer1.enabled = false timer2.enabled = false timer3.enabled = true timer4.enabled = false end sub private sub command4_click() timer1.enabled = false timer2.enabled = false timer3.enabled = false timer4.enabled = true end sub

private sub form_load() timer1.enabled = false timer2.enabled = false timer3.enabled = false timer4.enabled = false timer1.interval = 200 timer2.interval = 200 timer3.interval = 200 timer4.interval = 200 label1.autosize = true end sub

private sub timer1_timer() label1.top = label1.top - 60 if label1.top + label1.height <= 0 then label1.top = me.height - 400 end if

end sub

private sub timer2_timer() label1.top = label1.top + 60 if label1.top >= me.height - 400 then label1.top = -label1.height end if

end sub private sub timer3_timer() label1.left = label1.left - 60 if label1.left <= -label1.width then label1.left = me.width - 100 end if

end sub

private sub timer4_timer() label1.left = label1.left + 60 if label1.left >= me.width - 100 then label1.left = -label1.width end if

end sub