今、functionの初心勉強を終了しました。
そこで、今度は色を回転させたいんです。
Public Class Form1
    Public x, y As Integer
    Public CL As Pen
    Public X1, Y1 As Integer '描画位置

    Public Function SinCos(ByVal nagasa As Integer, ByVal kakudo As Integer) As Integer
        x = CInt(nagasa * Math.Cos(kakudo * 3.14159 / 180))
        y = CInt(nagasa * Math.Sin(kakudo * 3.14159 / 180))
        Return x And y
    End Function
    Public Sub Line()
        CL = New Pen(Color.Black)
        For i As Integer = 0 To 10
            SinCos(100 + i * 20, i * 10)
            X1 = 100 + i * 20
            Y1 = 100 + i * 10
            If i > 5 Then
                CL = New Pen(Color.Red)
            End If
            Me.CreateGraphics().DrawLine(CL, X1, Y1, X1 + x, Y1 + y)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Line()
    End Sub
End Class
ね。
CLのとこ。