Private Sub Slider1_Scroll()
 
  Static Rad!, Pi!
  Dim XPos!, YPos!, Wnk!
 
  With Line2
    If Pi = 0 Then
      Pi = 4 * Atn(1)
      Rad = Sqr((.X2 - .X1) ^ 2 + (.Y2 - .Y1) ^ 2)
    End If
    Wnk = (1 - Slider1.Value / Slider1.Max) * Pi / 2
    .X2 = .X1 + Rad * Cos(Wnk)
    .Y2 = .Y1 - Rad * Sin(Wnk)
  End With
 
End Sub

Gruss,

Zardoz