With r_ctlTempBuffer
      For l_lngLineNumber = 0 To l_lngNumberOfLines
         .CurrentY = v_lngCurrentY + (l_lngLineNumber * .FontSize + (6 * l_lngLineNumber))
         If (v_enuAlignment = vbCenter) Then
            .CurrentX = (l_lngScaleWidth - .TextWidth(v_strTextArray(l_lngLineNumber))) / 2
         ElseIf (v_enuAlignment = vbLeftJustify) Then
            .CurrentX = 0
         ElseIf (v_enuAlignment = vbRightJustify) Then
            .CurrentX = l_lngScaleWidth - .TextWidth(v_strTextArray(l_lngLineNumber))
         End If

         .CurrentX = .CurrentX + v_lngLeftMargine
         
         If Not (.CurrentY > l_lngScaleHeight) And _
            Not (.CurrentY < -l_sngTextHeight) Then
            If (v_lngRGBStartColor <> v_lngRGBEndColor) Then
               l_lngCurrentRed = Abs(l_lngEndRed - (l_sngRedOffset * .CurrentY))
               l_lngCurrentGreen = Abs(l_lngEndGreen - (l_sngGreenOffset * .CurrentY))
               l_lngCurrentBlue = Abs(l_lngEndBlue - (l_sngBlueOffset * .CurrentY))
            End If
            
            .ForeColor = RGB(l_lngCurrentRed, l_lngCurrentGreen, l_lngCurrentBlue)

            r_ctlTempBuffer.Print v_strTextArray(l_lngLineNumber)
         End If

         If (l_lngLineNumber = l_lngNumberOfLines) And (.CurrentY <= -l_sngTextHeight) Then
            g_funScrollText = False
         End If
      Next
   End With