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