'秒、分、时Dim Second, Minute, Hour As Integer'表的中心位置Dim X0, Y0 As Integer'Dim X, Y As Variant
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
'按下鼠标左键
If Button = 1 Then
'鼠标指针在表盘内
If X > X0 - 950 And X < X0 + 950 Then...
|
|