#Region "Anmerkung"
    Friend Sub Anmerkung_Show(ByVal pt As Point, Optional ByVal sText As String _
      = Nothing)
        lbl_Anmerkung.BackColor = Color.FromArgb( _
        Dts.Figure.Current.PlanMassRow.LvItemRow.LineStyleRow.LineColor)
        Dim fsR = Dts.Figure.Current.PlanMassRow.LvItemRow.FontStyleRow
        Dim fnt = New Font(fsR.Name, fsR.Size, If(fsR.Style = "Regular", _
          System.Drawing.FontStyle.Regular, System.Drawing.FontStyle.Bold))
        If Not sText Is Nothing Then
            tbx_Anmerkung.Text = sText
            tbx_Anmerkung_TextChanged(Nothing, Nothing)
        Else
            tbx_Anmerkung.Text = ""
        End If
        pt.Y -= tbx_Anmerkung.Height
        tbx_Anmerkung.Location = pt
        tbx_Anmerkung.Font = fnt
        lbl_Anmerkung.Visible = True
        tbx_Anmerkung.Visible = True : tbx_Anmerkung.Focus()
    End Sub
    Private Sub tbx_Anmerkung_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles tbx_Anmerkung.KeyPress
        If Not "" & _
        "abcdefghijklmnopqrstuvwxyzäüöABCDEFGHIJKLMNOPQRSTUVWXYZ?ÄÜÖß123456789" & _
        "+-*/.,_!§$%&/()=?`´#'@€²³{[]}\".Contains(e.KeyChar) Then
            If Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 13 Then Return
            e.Handled = True
        End If
    End Sub
    Private Sub tbx_Anmerkung_LocationChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles tbx_Anmerkung.LocationChanged
        lbl_Anmerkung.Left = tbx_Anmerkung.Left - 3
        lbl_Anmerkung.Top = tbx_Anmerkung.Top - 3
    End Sub
    Private Sub tbx_Anmerkung_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles tbx_Anmerkung.TextChanged
        Dim g = Graphics.FromHwnd(tbx_Anmerkung.Handle)
        Dim Text As String = tbx_Anmerkung.Text
        Dim Texte As String()
        Dim tWidth As Integer = 5
        Dim sz As SizeF
        If Text.Contains(Environment.NewLine) Then
            Texte = Text.Split(Environment.NewLine)
            For Each t In Texte
                sz = g.MeasureString(t, tbx_Anmerkung.Font)
                If sz.Width > tWidth Then tWidth = CInt(sz.Width + 5)
            Next
            tbx_Anmerkung.Width = tWidth + 5
            tbx_Anmerkung.Height = CInt(Texte.Length * (tbx_Anmerkung.Font.Size _
              + 12))
        Else
            sz = g.MeasureString(Text, tbx_Anmerkung.Font)
            tbx_Anmerkung.Width = CInt(sz.Width + 5)
        End If
    End Sub
    Private Sub tbx_Anmerkung_SizeChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles tbx_Anmerkung.SizeChanged
        lbl_Anmerkung.Width = tbx_Anmerkung.Width + 6
        lbl_Anmerkung.Height = tbx_Anmerkung.Height + 6
    End Sub
    Friend Sub Anmerkung_Hide()
        If Dts.MeasureType.Current.Type = MeasureTypes.Anmerkung OrElse _
          Dts.MeasureType.CurrentType = MeasureTypes.None Then
            If tbx_Anmerkung.Visible = False Then Return
            If Not Dts.Figure.Current Is Nothing Then
                If tbx_Anmerkung.Text.Length > 0 Then
                    Dts.Figure.Current.Anmerkung = tbx_Anmerkung.Text
                Else
                    Dts.Figure.Current.Anmerkung = " "
                End If
                Dts.Figure.Current.ApplyChanges()
            End If
        End If
        With tbx_Anmerkung
            .Width = 50
            .Height = 20
            .Visible = False
        End With
        lbl_Anmerkung.Visible = False
    End Sub
#End Region

Danke für die Hilfe

Gruß Christian