毫秒级定时器

在这个基础上，制作一个简易的抽签小程序。
例：不重复抽取1-10号，效果图：

VBA代码：
#If Win64 Then
Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
#End If
Public TimerID As Long
Public temp As Variant
Public iCount As Long
Public FilterVal As Long
Public flag As Boolean
Sub InitTimer(ByVal Duration As Long)
If TimerID = 0 Then
TimerID = SetTimer(0, 0, Duration, AddressOf OnTime)
Else
Call StopTimer
TimerID = SetTimer(0, 0, Duration, AddressOf OnTime)
End If
End Sub
Sub StopTimer()
KillTimer 0, TimerID
End Sub
Sub OnTime()
On Error GoTo line
Cells(1, 1).Value = temp((UBound(temp) + 1) * Rnd)
line:
End Sub
Sub StartTimer()
flag = True
Call Proce
Call InitTimer(50)
End Sub
Sub PauseTimer()
If iCount >= 11 Then Exit Sub
Call StopTimer
If flag = True Then
iCount = iCount + 1
FilterVal = Cells(1, 1).Value
If iCount <= 10 Then
MsgBox Prompt:="抽签结果为" & Cells(1, 1).Value & Chr(10) & "剩余签数" & 10 - iCount, Title:="抽签程序"
Else
MsgBox Prompt:="抽签完毕", Title:="抽签程序"
End If
flag = False
End If
End Sub
Sub Clear()
Call StopTimer
flag = False
Cells(1, 1).Value = ""
iCount = 0
FilterVal = 0
Erase temp
End Sub
Sub Proce()
Dim arr(0 To 9), i As Long
If iCount > 0 Then
temp = Filter(temp, FilterVal, False)
Else
For i = 0 To 9
arr(i) = i + 1
Next
temp = arr
End If
End Sub