I develop and aplication using RASControl, I wonder to know if anyone has worked whit this before.?
Let me explain this worl ok until make the exe file because the moden leave open and dont answer.
Or when I make some test the VB shutdown.
This is the code that I´m using:
Option Explicit
Public porcientoprogreso, nentries, intFileO As Integer
Public detal, archivotxt, descripcion, copia, movimientos, abonos, mabonos, inventario, dddespacho, despacho, retiros, facturas, nombrecompleto, desde, hasta, acumulames As String
Public Sub conectar_Click()
mensajes.Clear 'Blanquea el listbox de mensajes.
archivos.Clear 'Blanquea el listbox de archivos copiados.
conectar.Visible = False
Call progreso(5)
rascontrol.Connect 'Invoca el proceso de conexión del RASControl.
End Sub
Public Sub desconectar_Click()
conectar.Visible = True
Call progreso(9)
mensajes.Clear 'Blanquea el listbox de mensajes.
archivos.Clear 'Blanquea el listbox de archivos copiados.
barraprogreso.Value = barraprogreso.Min
rascontrol.Disconnect
End Sub
Public Sub Form_Load()
For nentries = 0 To rascontrol.EntryCount - 1
rascontrol.ActiveEntry = nentries
conexiones.AddItem rascontrol.EntryName
Next nentries
conexiones.ListIndex = 0
End If
End Sub
' Comienza la conexión seleccionada
Public Sub Conexiones_Click()
rascontrol.ActiveEntry = conexiones.ListIndex
Transferir.Caption = "Conectar con: " + rascontrol.EntryName
End Sub

' Mensajes a la venta de resultados
Public Sub rascontrol_ConnMessage(ByVal MessageCode As Integer, ByVal MessageString As String, ByVal ErrorCode As Integer, ByVal ErrorString As String)
If ErrorString = "" Then
mensajes.AddItem MessageString
Else
mensajes.AddItem MessageString & " - " & ErrorString
mensajes.AddItem "No se estableció la conexión telefónica, intente de nuevo"
End If
If MessageString = "Connected" Then
copiar.Visible = True
End If
If MessageString = "Disconnected" Then
desconectar.Visible = False
conectar.Visible = True
End If
mensajes.ListIndex = mensajes.ListCount - 1
End Sub