Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint '自作の Sub プロシージャーを呼び出して、時計の針を描く DrawHands(e.Graphics, Now) '実際には、Graphics だけだと領域サイズが不明瞭なので、 '描画範囲を示す Rectangle も渡した方が良いかもしれません。 '(e.ClipRectangle とか、PictureBox1.ClientRectangle とか) End Sub Private Sub DrawHands(g As Graphics, tm As Date) '時分秒を整数で得たい場合 Dim intH = tm.Hour Dim intM = tm.Minute Dim intS = tm.Second '時分秒を小数点以下も含めて得たい場合 Dim span = tm - tm.Date Dim h = span.TotalHours Dim m = span.TotalMinutes - (span.Hours * 60) Dim s = span.Seconds + (span.Milliseconds / 1000.0F) DrawHourHand(g, h) DrawMinuteHand(g, m) DrawSecondHand(g, s) End Sub Private Sub DrawHourHand(g As Graphics, h As Single) End Sub Private Sub DrawMinuteHand(g As Graphics, m As Single) End Sub Private Sub DrawSecondHand(g As Graphics, s As Single) End Sub