制作滚动的字幕？

Private Sub Timer1_Timer()
If Label1.Left < 4700 Then
Label1.Left = Label1.Left + 100
Else
Label1.Left = 4700
End If
If Label1.ForeColor = &HFF0000 Then
Label1.ForeColor = &HFF&
Else
Label1.ForeColor = &HFF0000
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Left = 150
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

建议去这个网站看看： 77888/article-467217-1.html

可以用视频剪辑软件加滚动字幕，比如用爱剪辑；
1、添加字幕内容
在“字幕特效”选项卡添加字幕内容。
对添加字幕等基础操作还不熟悉的爱友，可戳此查看：如何给视频添加字幕
2、添加字幕内容
在“字幕特效”选项卡添加字幕内容。
对添加字幕等基础操作还不熟悉的爱友，可戳此查看：如何给视频添加字幕
3、将字幕样式调的更时尚
在字幕特效列表右侧“字体设置”栏目对片尾字幕的字体、大小、颜色等进行个性化设置，并可在视频预览框中，通过拖曳字幕的方框调整字幕位置。
4、将字幕样式调的更时尚
在字幕特效列表右侧“字体设置”栏目对片尾字幕的字体、大小、颜色等进行个性化设置，并可在视频预览框中，通过拖曳字幕的方框调整字幕位置。