vb里怎样实现传递函数地址？

具体如下，我想初始化时创建一个线程
Private Declare Function CreateThread Lib "kernel32" (_
ByVal lpThreadAttributes As Object,_
ByVal dwStackSize As Long ,_
ByVal lpStartAddress As Long ,_
ByVal lpParameter As Integer,_
ByVal dwCreationFlags As Long,_
ByVal LpthreadId As Long) As Long

线程调用函数：
Private Function ThreadFunc1(_
ByVal hwnd As Long,_
ByVal wMsg As Long,_
ByVal wParam As Long,_
ByVal lParam As Long) As Long
    MessageBox(0,"thread1","info",0)
End Function

初始化函数：
public Sub Initialize(ByRef lpfnBasFunc As Long)
'定义省略
lNull = 0
lStackSize = 0
lCreationFlags = 0
hThread = CreateThread(lNull,lStackSize,lpfnBasfunc,lNull,lCreationFlags,lpThreadId)
End Sub

有几个问题我不理解，
1，怎样才能定义C语言里的PVOID变量？即返回类型不确定的变量，AS ANY在vs2005里不能用了；
2，怎样实现传递函数地址？我想把ThreadFunc1这个函数的地址传进initialize里，然后再initialize里调用CreateThread来创建线程，我试过addressof，编译提示addressof不能转换为long，因为long不是委托类型。。。。不解（我传进来的函数地址不是给我自己调用的，而是作为参数传给windows API CreateThread的）；
3，vb里有没有NULL？或者说有没有什么常量是相当于VC里的NULL的？

以上代码我想实现创建线程，如果有哪里需要修改请指出来，本人今天才刚接触VB --!不胜感激