Küçültme işleminde trigonometri hesaplamasına müdahale etmiyorsunuz. 

    Const pi = 3.142857

    Const nCentreLeft = (840), nCentreUp = (840)

    ' This code copyright Ray Corbin 2006

    ' Blue Bridge Pty Ltd, Sydney Australia ra*@aic.net.au

    ' Use wherever provided you include this accreditation.

    Dim nWidth As Single, nHeight As Single

    

    On Error GoTo CH_Err



    Select Case parHand

        Case "Second"

            nWidth = 650 * Sin(84 * pi * x)

            nHeight = 650 * Cos(84 * pi * x)

        Case "Minute"

            nWidth = 550 * Sin(84 * pi * x)

            nHeight = 550 * Cos(84 * pi * x)

        Case "Hour"

            nWidth = 350 * Sin(412 * pi * x)

            nHeight = 350 * Cos(412 * pi * x)

    End Select



    Me("scrLine" & parHand).LineSlant = (Abs(nWidth * nHeight) = (nWidth * nHeight))

    Me("scrLine" & parHand).Width = Abs(nWidth)

    Me("scrLine" & parHand).Height = Abs(nHeight)

    

    If nWidth > 0 Then

        Me("scrLine" & parHand).Left = nCentreLeft

    Else

        Me("scrLine" & parHand).Left = nCentreLeft + nWidth

    End If

    

    If nHeight > 0 Then

        Me("scrLine" & parHand).Top = nCentreUp - nHeight

    Else

        Me("scrLine" & parHand).Top = nCentreUp

    End If

    

CH_Exit:

    Exit Sub

CH_Err:

    MsgBox Err.Description

    Resume CH_Exit

Genişlik ve yükseklik için belirlenen katsayıyı küçültmeniz yeterli.