'绘制歌词
    Public Sub paintLyrics(ByVal pBox As PictureBox, ByVal CurrentPosition As Integer, ByVal type As Boolean, Optional ByVal pLyric As LyricClass = Nothing)
        Dim stringFormat As New StringFormat() With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center}
        Dim tempI, tempII, pWidth, pHeight As Integer
        Dim myfont As Font
        Dim mybrush As SolidBrush
        Dim bmp As Bitmap

             > LyricData.LyricTime(LyricData.Count -  - i) Then
                tempII = LyricData.Count -  - i
                Exit For
            End If
            tempII = -
        Next
        If Not tempII = tempI Or type = True Then
            If pLyric Is Nothing Then pLyric = Me
            tempI = tempII
            myfont = )
            mybrush = , , , ))
            pWidth = pBox.Width : pHeight = pBox.Height
            bmp = New Bitmap(pWidth, pHeight)
            Dim pg As Graphics = Graphics.FromImage(bmp)
            pg.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
             To pHeight '绘制渐变背景
                pg.DrawLine( + Math.Abs(i / (pHeight / ) - ), , , ), ), , i, pWidth, i)
            Next
             Then
                pg.DrawString(, pHeight / , stringFormat)
            Else

                     , pHeight /  - i * , stringFormat)
                     , pHeight /  + i * , stringFormat)
                Next
                myfont = )
                mybrush = , , , ))
                  , pHeight / , stringFormat)
            End If
            pBox.Image = bmp
            pg.Dispose()
        End If
    End Sub