Dim engfile As String = "Was auch immer"
   Dim ra As New RectangleAnnotation
 
   With ra
     .Text = IO.Path.GetFileNameWithoutExtension(engfile)
     .Name = "File"
 
     .ClipToChartArea = area.Name
 
     .Font = New Font("Arial", 14, FontStyle.Bold)
     .ForeColor = Color.Plum
     .LineColor = Color.Blue
     .BackColor = Color.Transparent
     .LineWidth = 1
 
     .AxisX = area.AxisX
     .AxisY = area.AxisY
   End With

  Private Sub Paint(sender As Object, _
    e As System.Windows.Forms.PaintEventArgs) Handles cht.Paint
 
    Dim cht As Chart = CType(sender, Chart)
    Dim fa As RectangleAnnotation = _
        CType(cht.Annotations("File"), RectangleAnnotation)
 
    Dim axisx As Axis = fa.AxisX
 
    Dim sz As SizeF
    Using g As Graphics = cht.CreateGraphics()
         g.PageUnit = GraphicsUnit.Pixel
         sz = g.MeasureString(fa.Text, fa.Font) 'Breite in Pixel
    End Using
 
    With axisx
       'Skalenbereich aus Datengrenzen in Pixelmaßstab
       Dim pixXmin As Double = .ValueToPixelPosition(.Minimum)
       Dim pixXmax As Double = .ValueToPixelPosition(.Maximum)
 
       Dim axis_data As Double = .Maximum - .Minimum
       Dim axis_pixel As Double = pixXmax - pixXmin
 
       'Transformation von Pixelskala auf Datenskala 
       Dim x As Double = ((axis_pixel - 1.05 * sz.Width) * _
                axis_data / axis_pixel) + .Minimum
 
       fa.X = x
       fa.Y = fa.AxisY.Maximum
    End With
End Sub