Anonymous

Public Sub SetDirection(intDirection As Integer)
    Dim diam As Double
    Dim angle As Double
    Dim radius As Double
    
    
    diam = GetDiameter(shpCircle)
    angle = (intDirection + 1) * (360 / 32)
    radius = diam / 2  ' length of line
    Debug.Print Math.Sin(angle)
    Debug.Print Math.Cos(angle)
    
    originX = shpCircle.Left + shpCircle.Width / 2
    originY = shpCircle.Top + shpCircle.Height / 2
    
    
    With l1
        .X1 = originX
        .Y1 = originY
        .X2 = originX + radius * Math.Cos(angle)
        .Y2 = originY + radius * Math.Sin(angle)
    End With
    
End Sub