Power Builder - usar DLL

POR FAVOR quisiera saber como realizo un dll en power builder 8 y luego como lo invoco desde otra aplicacion tambien en power.
muchisimas gracias.

como hago para insertar un skin a mi ventana en power buider, asi como en visual basic y el VBskipro que solo se instala y se jala como un componente, es muy facil, pero con power builder, como lo hago.

ESCRIBIME TENGO UN EJEMPLO DEL USO DE SKINS

Para realizar esta operacion se necesita registrar
las dll's de vb y componentes com de pb y para las
dll y archivos pbd generados despues de un proyecto
de pbd no es necesario ya que el accede es a las
librerias de pb y carga todo en la aplicacion pb.

MasterBrain 10-Nov-2004

El Ejemplo es el siguiente:

//Primero Consumir dll's o pbd's Generados despues de Un proyecto
OLEObject PBObject, PBNVObject
Integer liSum1 = 5, liSum2 = 8 , li_resp
long ll_status, llres
double ld_result

PBObject = CREATE OLEObject
ll_status = PBObject.ConnectToNewObject ("PowerBuilder.Application")//("PB80.ObjSumar")
IF ll_status <> 0 THEN
MessageBox("Error", String(ll_status))
Return
ELSE

//PBObject.LibraryList = "C:\dllTmp\dllsumar.dll"
PBObject.LibraryList = "C:\dllTmp\transp.pbd"
//Esto es del tipo de libreria genera por un pbd o un dll
PBObject.MachineCode = FALSE

PBNVObject = CREATE OLEObject

PBNVObject = PBObject.CreateObject("n_operacion")

IF IsNull(PBNVObject) THEN
MessageBox("Error", "Objeto Nulo")
Return
ELSE
li_resp = PBNVObject.sumar(liSum1,liSum2)
MessageBox("Respuesta",li_resp)
END IF

DESTROY PBNVObject
PBObject.DisconnectObject( )
END IF

DESTROY PBObject

//Consumir dll's Generadas en Vb 6.0 de igual podria ser con otros
//lenguajes.
OLEObject PBObject, PBNVObject
Integer liSum1 = 5, liSum2 = 8 , li_resp
long ll_status, llres
double ld_result

PBObject = CREATE OLEObject
//ll_status = PBObject.ConnectToNewObject ("PowerBuilder.Application")//("PB80.ObjSumar")
ll_status = PBObject.ConnectToNewObject ("Proyecto1.clase_operaciones")
IF ll_status <> 0 THEN
MessageBox("Error", String(ll_status))
Return
ELSE
li_resp = PBObject.suma(liSum1,liSum2)
MessageBox("Respuesta",li_resp)

PBObject.DisconnectObject( )
END IF

DESTROY PBObject

//Consumir dll\'s COM de PB
//Un Saludo y espero que sea lo que buscas.
OLEObject PBObject, PBNVObject
Integer liSum1 = 5, liSum2 = 8 , li_resp
long ll_status, llres
double ld_result

PBObject = CREATE OLEObject
ll_status = PBObject.ConnectToNewObject(\"PB80.ObjSumar\")
//ll_status = PBObject.ConnectToNewObject (\"Proyecto1.clase_operaciones\")
IF ll_status <> 0 THEN
MessageBox(\"Error\", String(ll_status))
Return
ELSE
li_resp = PBObject.sumar(liSum1,liSum2)
MessageBox(\"Respuesta\",li_resp)

PBObject.DisconnectObject( )
END IF

DESTROY PBObject