VWPopup ActiveX DLL
Librería ActiveX (freeware) para envío de mensajes emergentes (Winpopup)

Librería ActiveX (freeware) para envío de mensajes emergentes (Winpopup)

Instalación:

Descomprimir el fichero zip y copiar la librería (vwpopup.dll) en el directorio System de Windows.
Cambiar a ese directorio y escribir:
Regsvr32 vwpopup.dll
De esta forma ya estará registrada y lista para usar desde Visual Basic.

Utilización (VB5 / VB6):

Agregar en el proyecto una referencia a la librería: (Proyecto/Referencias... )
el nombre de la librería es: VWPopup.
Crear un objeto de la clase Winpopup,
usar el procedimiento (o método) EnviarMensaje con los parámetros adecuados: Emisor, Receptor y Mensaje, esta función devuelve el número de bytes enviados o cero si no se ha podido enviar.

Ejemplo:

Private Sub Command1_Click()
    Dim Wp As New Winpopup

    If Wp.EnviarMensaje("PEDRO", "JUAN", "Hola!") = 0 Then
        MsgBox "No se ha podido enviar el mensaje", vbExclamation, "Error"
    End If
    Set Wp = Nothing
End Sub

Fichero con el código de la librería y el ejemplo: (VWPopup.zip  12.2KB)