configurar puerto comm desde una DLL

[clavijo83]

hola a todos mi problema es el siguiente.
yo estoy realizando un programa con el cual me comunico con un dispositivo conecto al puerto usando MSCOMM, hasta aqui todo bien.
con el siguente codigo configuro el puerto y envio un paquete de inicio de sesion al dispositivo.


Public Sub configurapuerto()
If MSComm1.PortOpen = True Then
'Parametros de configuracion de puerto
'abrir puerto
MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = velocidad & "," & paridad & "," & tamaño & "," & parada

'Paquete de inicio de sesion
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z1"
MSComm1.Output = Chr$(3)
MSComm1.Output = "h"
Else

'Parametros de configuracion de puerto
'abrir puerto
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = velocidad & "," & paridad & "," & tamaño & "," & parada

'Paquete de inicio de sesion
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z1"
MSComm1.Output = Chr$(3)
MSComm1.Output = "h"

End If
End Sub

luego para enviar un mensaje al dispositivo hago lo siguiente:
rivate Sub BtnEnviaMsj_Click()

limpiar

If Textbox1.Text = "" Then

MsgBox "Digite Texto a enviar Por favor", vbInformation

configurapuerto

'mesaje de estado idle o de reposo
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z8"
MSComm1.Output = Chr$(3)
MSComm1.Output = "a"
Else
configurapuerto

'convierte texto en decimales
convertir

'mesaje de estado idle o de reposo
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z8" + Textbox1.Text
MSComm1.Output = Chr$(3)
MSComm1.Output = Chr$(Text2.Text)

'cerrar puerto
MSComm1.PortOpen = False
Salir:

Label5.Caption = "Mensaje Enviado!!!"
Label5.Visible = True
End If

End Sub


muy bonito todo... jajajaja


bueno el problema esta en que necesito hacer esto desde una DLL y la verdad no se como hacerlo ya estuve intentando y no he podido, quisiera alguna ayuda de como poder solucionar esto.

gracias por la atencion