一応、見てみるよ。
ぼくのオリジナルコードだから、どこにも無いよ（2D）
はいプレゼント。教材にしてね。
Option Strict On
'時計///timer1コンポーネントが必要(VisualBasic2008)
Public Class Form1
    Private g As Graphics
    Private C_ As Pen
    Private x, y As Integer
    Private R_ As Double
    Private x1, y1, z As Integer
    Private Function CosS(ByVal nagasa As Integer, ByVal kakudo As Integer) As Integer
        R_ = (kakudo + 270) * 3.14159 / 180
        x = CInt(nagasa * Math.Cos(R_))
        y = CInt(nagasa * Math.Sin(R_))
        g.DrawLine(C_, 150, 150, 150 + x, 150 + y)
    End Function
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        g = Me.CreateGraphics()
        Me.BackColor = Color.Black
        Me.Timer1.Interval = 200
        Me.Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Refresh()
        x1 = 100 : C_ = New Pen(Color.Blue)
        y1 = Now.Second * 6 : CosS(x1, y1)
        x1 = 70 : C_ = New Pen(Color.Green)
        y1 = Now.Minute * 6 : z = y1 : CosS(x1, y1)
        x1 = 40 : C_ = New Pen(Color.Red)
        y1 = Now.Hour * 30 + CInt(z / 12) : CosS(x1, y1)
    End Sub
End Class