Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      Dim strText as String = "test"
      Dim stringMaße As SizeF = e.Graphics.MeasureString(strText , Me.Font)
 
      e.Graphics.DrawString(strText , Me.Font, New SolidBrush(Color.Black), ( _
        Me.Width -   
      stringMaße.Width)  / 2, (Me.Height - stringMaße.Height) / 2)