无返回值的函数
在VB中定义成Sub参数类型为指针型
用 byref 变量名

public Declare sub Myfunction "c:\path\your.DLL" 
 (Byref lpApplicationName As String) 
传了lpApplicationName的指针