高手帮我看看这是为什么

[羽毛之家]

我在类模块中这样写的
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

Loop

End Sub
可他提示用户定义类型未定义

[evbsky]

ByVal duration As single

[羽毛之家]

艾真的是低级错误，十分感谢！

[cxdfg]

如果使用vb的自动输入功能，应该不会出现这样的错误啊

[啊维]

是啊，你是不是自已每一个字母都打进去的？