Imports System.Drawing.Drawing2D
Public Class Form1   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Ctrl.BackgroundImage = My.Resources.HGrund ' Hintergrundbild mit 
        ' fertiger Scala (200x200)
    End Sub
 
    Private Sub Ctrl_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Ctrl.Paint
        Dim value As Int32 = TrackBar1.Value       '0-7000
        Using tb As New TextureBrush(My.Resources.FGrund), p As New Pen(tb, _
          10), f As New Font("Arial", 16, FontStyle.Bold)
            e.Graphics.SmoothingMode = _
            Drawing.Drawing2D.SmoothingMode.HighQuality
            e.Graphics.TextRenderingHint = _
            Drawing.Text.TextRenderingHint.AntiAlias
            e.Graphics.DrawArc(p, 36, 36, 125, 125, 135, value \ 26)
            e.Graphics.DrawString((10 * (value \ 10)).ToString.PadLeft(4, "0"), _
              f, Brushes.Yellow, 75, 85)
        End Using
    End Sub
 
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
        ' TrackBar1 Min 0, Max(7000) zum testen
        Ctrl.Invalidate(New Rectangle(35, 35, 132, 132))      ' Nur den 
        ' Zeigerbereich neuzeichnen
    End Sub
End Class