Hola,

La declaración de la función debe ser:

Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" _
        (ByVal DestAddress$, ByVal AppName$, ByVal CalledParty$, _
         ByVal Comment$)

NOTA: antes DestAddress era LONG y debe ser CADENA.

Saludos.
Guillermo


> From: Sergio Cárdenas Melero <scardenas@redestb.es>
> To: "'vb-esp@ccc.uba.ar'" <vb-esp@ccc.uba.ar>

>
> > Private Sub Command1_Click()
> > Dim ValDev&, Numero$, NombreProg$, Quien$
> > Numero = "123-4567"
> > NombreProg = "Mi Programa"
> > Quien = "Pepe"
> > ValDev = tapiRequestMakeCall(Numero, NombreProg,Quien,"")
> > End Sub
>
> No funciona este codigo. Primero me da mensajes de error porque Numero esta declarado como string y no como long. Lo cambio a long y no marca.
>
Fijate en la nota de aclaración!
=====================================================
¿No has visitado mis páginas personales?
¿A que esperas?
http://www.wcostasol.es/guiller/indice.htm

NUEVO!!! Ya está el magazine VB Online en castellano:
http://www.wcostasol.es/vbonline/indice.htm
=====================================================