VB: trigonométrie

        xPrim = (Math.Cos(angle) * longueur)     '// B devient C - formule trigo x = hypothenuse . cos angle
        yPrim = yPrim - (Math.Sin(angle) * longueur)     '// y = hypothenuse . sin angle

    ''' <summary>
    ''' Calcule le point de fin d'un segment en fonction du point de départ, de la norme et de l'angle
    ''' </summary>
    ''' <param name="Depart">Point de départ</param>
    ''' <param name="Rho">Norme</param>
    ''' <param name="Teta">Angle en radians</param>
    ''' <returns></returns>
    Private Function FinSegment(Depart As Point, Rho As Double, Teta As Double) As Point
        Dim vecteur As Size

        vecteur.Width = Convert.ToInt32(Math.Round(Rho * Math.Cos(Teta)))
        vecteur.Height = Convert.ToInt32(Math.Round(Rho * Math.Sin(Teta)))

        FinSegment = Depart + vecteur

    End Function

    ''' <summary>
    ''' Dessine un trait sur le pictureBox 
    ''' </summary>
    ''' <param name="Depart">Début du trait</param>
    ''' <param name="Fin">Fin du trait</param>
    ''' <param name="Pc">PictureBox à dessiner</param>
    Private Sub DessineTrait(Depart As Point, Fin As Point, Pc As PictureBox)
        Dim BMP As Bitmap = New Bitmap(Pc.Image)
        Dim G As Graphics = Graphics.FromImage(BMP)

        G.DrawLine(Pens.Black, Depart, Fin)

        Pc.Image = BMP

    End Sub

        PictureBox1.Image = New Bitmap(400, 400)
        Using graph As Graphics = Graphics.FromImage(PictureBox1.Image)
            Dim ImageSize As Rectangle = New Rectangle(0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height)
            graph.FillRectangle(Brushes.White, ImageSize)
        End Using

        Dim lesPoints As New List(Of Point)
        Dim rho As Double = 80
        Dim teta As Double = 0
        Dim deltaTeta As Double = -10.0 * Math.PI / 180 'angle négatif pour que ça tourne dans le sens trigo

        lesPoints.Add(New Point(10, 380))

        For i As Integer = 0 To 4
            lesPoints.Add(FinSegment(lesPoints.Last(), rho, teta))
            rho *= 4 / 5
            teta += deltaTeta
        Next

        For i As Integer = 0 To 3
            DessineTrait(lesPoints(i), lesPoints(i + 1), PictureBox1)
        Next

mais ma frustration demeure intacte, parce que je suis convaincu que ma méthode a du sens, sauf que je suis infichu d'utiliser la formule correctement sur VB.
Donc ta méthode résout mon exercice,
mais ne répond pas à ma question initiale concernant les formules de xPrim et yPrim ^^

        vecteur.Width = Convert.ToInt32(Math.Round(Rho * Math.Cos(Teta))) 'le décalage en X est bien le produit de la longueur par le cosinus
        vecteur.Height = Convert.ToInt32(Math.Round(Rho * Math.Sin(Teta)))'le décalage en Y est bien le produit de la longueur par le sinus

        FinSegment = Depart + vecteur 'là ça fait bien x' = x + dX et y' = y + dY, mais en une ligne puisque les objets existent, autant s'en servir

Donc juste en passant l'angle en Double je viens de faire le test pour les valeurs qui fâchent (ex: 30°), et j'ai des segments pertinents :-)

xPrim = x + (Math.Cos(angle) * longueur)
 yPrim = y - (Math.Sin(angle) * longueur) 

        Dim x, y, xPrim, yPrim, angle As Integer
        Dim k, lon As Double
        lon = LengthBox.Text()
        angle = (AngleUpDown.Value) * (Math.PI) / 180       '// conversion en RAD
        k = CoeffUpDown.Value                                  '//on ne s'en sert pas ici
        x = 0
        y = 0
        xPrim = x + (Math.Cos(angle)) * lon
        yPrim = y - (Math.Sin(angle)) * lon
        g.DrawLine(Pens.Black, x, y, xPrim, yPrim)
        Label1.Text = "( " & xPrim & " ; " & yPrim & " )"    '//recuperer les coordonnees de xPrim et                                                                                                                                                        '//yPrim pour avoir une idee