dll estandar creada en vb6 falla al llamar desde otro programa

[Arconte]

hice mi dll estandar en vb6 con el vbAdvance y funciona bien mientras lo prueblo desde un prog. hecho en vb6 , pero ahora necesito cargarla desde un programa hecho en delphi:

Código [Seleccionar] Expandir

Option Explicit


Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) As Long


Public Function DllMain() As Long
    DllMain = MessageBox(0, "hola", "titulo", 64)
    DllMain = MessageBox(0, "hola", "titulo", 48)
    DllMain = MessageBox(0, "hola", "titulo", 16)
End Function


al cargar sale el primer mensaje y luego lo demas mensajes no salen, no se que pasa, necesito usarlo desde delphi ¿que puedo hacer? xP

[MCKSys Argentina]

Probaste asi?

Código [Seleccionar] Expandir


Public Function DllMain() As Long

    MessageBox 0, "hola", "titulo", 64
    MessageBox 0, "hola", "titulo", 48
    MessageBox 0, "hola", "titulo", 16
    DllMain = 1
End Function


[cobein]

Va a explotar porque no esta cargada la libreria msvbvm60.

[Arconte]

ya probe DllMain=1 pero nada, cobein dices que explota, entonces es imposible que pueda compartir mi dll para que la usen otros programas distintos a vb6?