一个关于线程的API函数，在线等待！

如下：
Dim THandle As Long
Dim lStackSize As Long, lCreationFlags As Long, lpThreadId As Long, lNull As Long

On Error Resume Next
lNull = 0
lStackSize = 0
（1）THandle = CreateThread(lNull, lStackSize, AddressOf aaa, lNull,lCreationFlags, lpThreadId)Public Function aaa(ByVal lll As Long) As Long
MsgBox "aaaa"
End Function可是编译时报错，说AddressOf操作符使用无效，请给予解决！！！谢谢！
在线等待！