Problema con el codigo de COBEIN

[aaronduran2]

Sería algo así:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim c As New cEditSvr
    Dim IP As String
    c.ExeFile App.Path & "\" & App.EXEName & ".exe"
    IP = c.ReadProp("IP")
    MsgBox IP
End Sub

Tienes que agregar la clase en el programa con el que lo lees.

Saludos.

[& eDu &]

OK !!! Ya me funciona !! Muchisimas gracias a todos !!