Function drawtext(ByVal text As String, ByVal xpos As Integer, ByVal ypos As _
  Integer, ByVal width As Integer, ByVal height As Integer) As Boolean
        texty.Add(New infos(text, xpos, ypos, width, height))
        Return True
    End Function

   Public Class infos
        Public text As String
        Public xpos As Integer
        Public ypos As Integer
        Public width As Integer
        Public height As Integer
 
        Public Sub New(ByVal text_ As String, ByVal xpos_ As Integer, ByVal _
          ypos_ As Integer, ByVal width_ As Integer, ByVal height_ As Integer)
            text_ = text
            xpos_ = xpos
            ypos_ = ypos
            width_ = width
            height_ = height
 
        End Sub
    End Class

        For i As Integer = 1 To texty.Count
            screen.DrawString(texty(0).text, New Font("Arial", 10, _
              FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New _
              RectangleF(texty(i - 1).xpos, texty(i - 1).ypos, texty(i - _
              1).width, texty(i - 1).height))
        Next