请问怎样用VB6.0做出文字在屏幕上流动的效果啊？像千千静听的歌词秀那样谢谢！

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Form_Load()
Me.AutoRedraw = True
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
aa = SelectObject(Me.hdc, hBitmap)
DeleteObject aa
Me.Refresh
End Sub
这个可以让窗体透明而控件显示，注意窗体的Borderstyle=0

用两个api
一个透明窗体 一个最前显示

你可以看一看相关的API知识,有一个文本绘画API textout
你可以用这个API在透明窗体上一行一行在画文本(在消息WM_PAINT中画出就行)