Visual Basic

Imports System.Drawing.Drawing2D

Public Class Text2007
    Inherits System.Windows.Forms.UserControl

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20
            Return cp
        End Get
    End Property

    Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub

    Protected Sub InvalidateEx()
        If (Parent Is Nothing) Then
            Exit Sub
        Else
            Dim rc As New Rectangle(Location, Size)
            Parent.Invalidate(rc, True)
        End If
    End Sub


    Protected Overrides Sub OnMove(ByVal e As EventArgs)
        Me.InvalidateEx()
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim bm As New Bitmap(CInt(Me.ClientSize.Width / 5), CInt(Me.ClientSize.Height / 5))
        Dim pth As New GraphicsPath()
        pth.AddString(Me.Text, New FontFamily("Verdana"), CInt(FontStyle.Regular), 100, New Point(20, 20), StringFormat.GenericTypographic)
        Dim h As Graphics = Graphics.FromImage(bm)
        Dim mx As New Matrix(1.0F / 5, 0, 0, 1.0F / 5, -(1.0F / 5), -(1.0F / 5))
        h.SmoothingMode = SmoothingMode.AntiAlias
        h.Transform = mx
        Dim p As New Pen(Color.Yellow, 3)
        h.DrawPath(p, pth)
        h.FillPath(Brushes.Yellow, pth)
        h.Dispose()
        e.Graphics.Transform = New Matrix(1, 0, 0, 1, 50, 50)
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
        e.Graphics.DrawImage(bm, ClientRectangle, 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)
        e.Graphics.FillPath(Brushes.Black, pth)
        pth.Dispose()
    End Sub

    Public Sub pInvalidate()
        Me.InvalidateEx()
    End Sub

End Class