아날로그 시계좀..........

[iberson]

시,분,초 나와있는 아날로그 시계 좀 작성하려고 하는데....

잘 안되네요....글구 인터넷 상에서 시계 그림을 다운 받아서

시분초를 지우고 새로 시분초를 그려 넣으려면 어케 해야 되죠?

빠른 답변좀 부탁드려요.....다음 코드가 들어가게 해 주세요...!!t =


Now '현재의 시간을 얻는다
s = Second(t) '초를 얻는다
m = Minute(t) '분을 얻는다
h = Hour(t) '시를 얻는다
SetModes '스케일을 설정한다

h2 = h + m / 60
X = 8 * Sin(h2 * pi / 6) '시 바늘을 그린다
Y = 8 * Cos(h2 * pi / 6)
DrawHand X, Y, 3, 13, vbBlue
X = 10 * Sin(m * pi / 30) '분 바늘을 그린다
Y = 10 * Cos(m * pi / 30)
DrawHand X, Y, 2, 13, vbRed
lastHour = h '이 시간을 보관한다
lastMin = m '이 분을 보관한다
End If
'초의 좌표를 계산한다
X = 11 * Sin(s * pi / 30)
Y = 11 * Cos(s * pi / 30)
If lastx <> 999 Then
'이전에 그린 초 바늘을 지운다
DrawHand lastx, lasty, 1, 10, vbBlack
End If
'새로운 초의 바늘을 그린다
DrawHand X, Y, 1, 10, vbBlack
lastx = X
lasty = Y
End Sub