高手帮我看看这是为什么

Question

我在类模块中这样写的
Option Explicit
Public Sub longtask(ByVal duration As sing, ByVal minimuminterval As Single)
Dim sngthreshod As Single
Dim sngstart As Single
Dim blncancle As Boolean
sngstart = Timer
sngthreshod = minimuminterval
Do While Timer < (sngstart + duration)
   If Timer > (sngstart + sngthreshod) Then
      RaiseEvent percentDone(sngthreshod / duration, blncancle)
      If blncancle Then Exit Sub
      sngthreshod = sngthreshod + minmuminterval
   End If
   
LoopEnd Sub
可他提示用户定义类型未定义

Answer 1

ByVal duration As single