'Funciones Importadas del API
Private Declare Function CreateThread Lib "kernel32" (ByVal Null1 As Long, ByVal Null2 As Long, ByVal StartAddress As Long, Parameter As Any, ByVal Null3 As Long, ThreadId As Long) As LongPublic Sub PlayFile()
Dim Identifier As Long
CreateThread 0, 0, AddressOf StartSong, 0, 0, Identifier
End Sub这里注意StartSong是线程中的主函数，而且必须得是模块中的函数，否则无法通过AddressOf 获取它的地址
Private Declare Function CreateThread Lib "kernel32" (ByVal Null1 As Long, ByVal Null2 As Long, ByVal StartAddress As Long, Parameter As Any, ByVal Null3 As Long, ThreadId As Long) As LongPublic Sub PlayFile()
Dim Identifier As Long
CreateThread 0, 0, AddressOf StartSong, 0, 0, Identifier
End Sub这里注意StartSong是线程中的主函数，而且必须得是模块中的函数，否则无法通过AddressOf 获取它的地址
==================================================
http://www.21code.com/codebase/?pos=down&id=1092
http://www.21code.com/codebase/?pos=down&id=1093