Dim WzText As Bitmap
        WzText = New Bitmap(TextRenderer.MeasureText(Text, Schriftart).Width, _
          TextRenderer.MeasureText(Text, Schriftart).Height)
        Using g As Graphics = Graphics.FromImage(WzText)
            g.Clear(Color.Transparent)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
            g.DrawString(Text, Schriftart, New SolidBrush(Color.FromArgb( _
              TextAlpha, TextRed, TextGreen, TextBlue)), 0, 0)
        End Using