谁知道qq音乐歌词的效果是怎么做出来的！

建立一个命令1。

代码如下。

=============

私人型RECT

左等长

顶端一样长

一样长

底部一样长

结束类型

私有声明函数DrawText Lib“user 32”别名“DrawTextA”(ByVal hdc为Long，ByVal lpStr为String，ByVal nCount为Long，lpRect为Rect，ByVal wFormat为Long)为Long

私有声明函数CreateDC Lib "gdi32 "别名" CreateDCA" (ByVal lpDriverName为字符串，ByVal lpDeviceName为字符串，ByVal lpOutput为字符串，lpInitData为Long)Long

私有子命令1_Click()

Dim hDsk为Long，s为String，r为RECT

hDsk = CreateDC("DISPLAY "，vbNullString，vbNullString，0)

r.Bottom = 16

r.右= 1000

S = "您想要输出的字符"

MsgBox DrawText(hDsk，s，-1，r，0)

末端接头