' © 2012 by Zardoz
' Controls: 1 * VScroll
 
Private Pi!
 
Private Sub Form_Activate()
 
  Pi = 4 * Atn(1)
  With Me
    .ScaleMode = vbPixels
    .FillStyle = vbFSSolid
    .FillColor = RGB(255, 96, 0)
    .ForeColor = vbWhite
    .Font.Size = 12
    .Font.Bold = True
    .AutoRedraw = True
  End With
 
  With VScroll1
    .Visible = False
    .Min = 0
    .Max = 100
    .SmallChange = 1
    .LargeChange = 10
    .Value = 36
    .Visible = True
  End With
  Call VScroll1_Scroll
 
End Sub
 
Private Sub VScroll1_Change()
 
  Call VScroll1_Scroll
 
End Sub
 
Private Sub VScroll1_Scroll()
 
  Call Torte(VScroll1.Value)
 
End Sub
 
Private Sub Torte(ByVal Proz As Single)
 
  Dim Wnk1!, Rad!, Out$, XPos!, YPos!
 
  If Proz < 0 Then Proz = 0
  If Proz > 100 Then Proz = 100
  Out = Int(Proz) & " %"
  Rad = 100 ' Radius
  Wnk1 = 1.25 - Proz / 100
  Wnk1 = 2 * Pi * (Wnk1 - Int(Wnk1))
  If Wnk1 = 0 Then Wnk1 = 0.0001
 
  With Me
    XPos = .ScaleWidth / 2 ' X-Position Diagramm
    YPos = .ScaleHeight / 2 ' Y-Position Diagramm
    .Cls
    If Proz = 0 Then
      Me.Line (XPos, YPos)-Step(0, -Rad), vbBlack
    ElseIf Proz = 100 Then
      Me.Circle (XPos, YPos), Rad, vbBlack
    Else
      Me.Circle (XPos, YPos), Rad, vbBlack, -Wnk1, -Pi / 2
    End If
    .CurrentX = XPos - .TextWidth(Out) / 2
    .CurrentY = YPos - .TextHeight(Out) / 2
  End With
  Me.Print Out
 
End Sub

Gruss,

Zardoz