ビジュアルベーシックを使って今のところこのようにプログラムしているのですが時計の針が一本廻って動くだけです。どうしたら三本ちゃんと動かせるのでしょうか？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim Houp As New Pen(Color.Black)
        Dim Minp As New Pen(Color.Black)
        Dim Secp As New Pen(Color.Black)
        Dim CX As Integer
        Dim CY As Integer
        Dim EX As Integer
        Dim EY As Integer
        Dim R As Integer
        Dim Deg As Double
        Dim Sec As Integer
        Dim Min As Integer
        Dim Hour As Integer



        R = 100 '針の長さ
        Deg = Deg + (1 / 30)

        CX = 250
        CY = 248

        EX = CX - (Math.Cos(Math.PI * Deg) * R) + R
        EY = CY - (Math.Sin(Math.PI * Deg) * R) - R

        g.DrawEllipse(Pens.Blue, 100, 100, 300, 300) '外側の円
        g.DrawEllipse(Pens.Blue, 243, 243, 10, 10) '内側の円
        Houp.Width = 3
        g.DrawLine(Houp, CX, CY, EX, EY) '短針
        Minp.Width = 3
        g.DrawLine(Minp, CX, CY, EX, EY) '長針
        g.DrawLine(Secp, CX, CY, EX, EY) '秒針




        Deg = 1 / 2
        For I = 0 To 12

            For J = 0 To 60

                For K = 0 To 60
                    For L = 0 To 100000

                    Next L
                Next K

                Deg = Deg + (1 / 30)
                EX = CX - (Math.Cos(Math.PI * Deg) * R)
                EY = CY - (Math.Sin(Math.PI * Deg) * R)
                g.Clear(Color.White)
                g.DrawEllipse(Pens.Blue, 100, 100, 300, 300) '外側の円
                g.DrawEllipse(Pens.Blue, 243, 243, 10, 10) '内側の円
                g.DrawLine(Secp, CX, CY, EX, EY) '秒針
                g.
            Next J




            g.DrawLine(Minp, CX, CY, EX, EY) '長針
        Next I


        g.DrawLine(Houp, CX, CY, EX, EY) '短針
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class