用ＶＢ实现字体平滑滚动，只需添加ｔｉｍｅｒ和ｌａｂｅｌ即可

Option Explicit
Private Sub form_activate()
Label1.Caption = "喔喔喔喔喔喔喔喔喔喔喔喔喔喔"
Label1.Width = ScaleWidth
Label1.Top = ScaleHeight - Label1.Height
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 50
If Label1.Left < Label1.Width Then
Label1.Left = Label1.Left + Len(Label1.Caption)
Else
Label1.Left = -(Label1.Width) / 2
'为了平滑从左到右的滚动，注意：len（字符串)长度与窗体和标签宽度无关，所以这里平滑用1/2的标签宽度,数值可根据字符串数目任意更改
End If
End Sub