Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    Dim g As Graphics
    Dim textSize As SizeF
    Dim format As StringFormat
    Dim l_font As Font = Me.Font
    Dim r As Rectangle
 
    g = e.Graphics
    g.Clear(BackColor)
 
    'String vorbereiten
    Format = New StringFormat()
    Format.Alignment = StringAlignment.Near
    Format.LineAlignment = StringAlignment.Center
 
    textSize = g.MeasureString("50%", l_font)
    r = New Rectangle(0, 0, 100, 200)
    g.DrawRectangle(Pens.Blue, New Rectangle(0, 0, 100, 200))
    r = New Rectangle(1, 100, 99, 99)
    g.FillRectangle(Brushes.Aqua, r)
    g.DrawString("50%", l_font, Brushes.DarkOrange, 50 - textSize.Width / 2, _
      100 - textSize.Height / 2)
 
 
  End Sub