错误提示:错误   
错误    1    没有为“Public Sub RasDialFunc(ByRef unMsg As Integer, ByRef ConnState As RasConnState, ByRef dwError As Integer)”的形参“ConnState”指定实参。    C:\Documents and Settings\Administrator\桌面\vpdn\浙江国税VPDN专用拨号软件\浙江国税VPDN专用拨号软件\link.vb    120    78    浙江国税VPDN专用拨号软件
 错误    2    没有为“Public Sub RasDialFunc(ByRef unMsg As Integer, ByRef ConnState As RasConnState, ByRef dwError As Integer)”的形参“dwError”指定实参。    错误    3    没有为“Public Sub RasDialFunc(ByRef unMsg As Integer, ByRef ConnState As RasConnState, ByRef dwError As Integer)”的形参“unMsg”指定实参。   

代码如下:
      lngRetCode = RasDial(APINULL, Nothing, lprasdialparams, 0, AddressOf RasDialFunc(), hRasConn) '异步通信
Public Sub RasDialFunc(ByRef unMsg As Integer, ByRef ConnState As RasConnState, ByRef dwError As Integer)
        Debug.Print(unMsg)
    End Sub