el code está bien lo que está fallando es el no-ip.. te doy una sugerencia...

porque no le decis a algún voluntario XD(amigo tuyo o algo) y vas probando cada vez que estes en duda,  ahora hace esto:

en vez de poner tu no-ip pone tu ip dinámica común (no vayas a probar con "127.0.0.1"  ) jaja
y despues pusiste el :

Option Explicit
Public WithEvents ws2 As CSocketMaster

y despues en el form_load:

Set ws2 = New CSocketMaster

y pone un label en el cliente o lo que quieras que sea

if ws2.state = sckConnected then
label.caption = "conectado"
else
label.caption = "desconectado"

un saludo

buenas, lo que te recomiendo para ayudarte con mas precicion es que dejes tu codigo de como hiciste la conexion, y fijate de que el CScoketMaster lo hayas bajado de la pagina oficial

saludos

bueno al final de todo decidi abrir el vb e ir probando (me ayuda para aprender tambien), dejo el codigo de como lo hice para lograr lo que dijiste

Private Sub Command1_Click()
Dim espacios As Integer
Dim Codigo As String
Dim Descripcion As String
Dim precio As String
espacios = 20
Codigo = Text1.Text
Descripcion = Text2.Text
precio = Text3.Text
Printer.Print "Codigo" & Space(14) & "Descripcion" & Space(9) & "Precio" & vbCrLf & Codigo & Space(espacios - Len(Codigo)) & Descripcion & Space(espacios - Len(Descripcion)) & precio
End Sub

es algo asi como lo dijo aaronduran2 , pero con la condicion de que hay que tambien poner los espacion entre los nombres de arriba y hacer el salto

un saludo y espero haber sido de ayuda!

no entiendo la idea, lo que queres es que haya campos (textbox) y que con lo puesto en el text se imprima???
osea:

uno que diga:

cod:                descripcion         Precio
text1.text      text2.text          text3.text

algo asi?

no entiendo muy bien la idea


saludooos

Graciaaaas de nuevoooooo buenisimo che(arg)

ejje adios

muchas gracias a los dos pero karcrack te gano de mano y posteo primero  igualmente muhcas gracias a los dos!!
gracias che estaba parado mucho tiempo

saludos

muchas gracias pero ya probe asi tambien y no funciona, alguien mas tiene idea de porque pasa esto??


adioos

bueno hace muy poco habia presentado un problema que decia algo asi como "exe final no recibe los datos"

pero nadie respondio 
pero ahora es distinto ya que no era que no recibía los datos,sino que las condiciones que habia no se cumplian asique no pasaba nada, pero enrealidad tendrian que cumplirse el codigo es asi

If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = True) Then
res1 = MsgBox(Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3))
If res1 = vbOK Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: MsgBox "Posible mujer o algo rarito jaja"
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = True) And ((Split(datos, "|")(8)) = True) Then
res = MsgBox(Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3))
If res = vbYes Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: ShellExecute hwnd, "open", (Split(datos, "|")(9)), vbNullString, vbNullString, conSwNormal
End If

el problema esta en los "and"!!, necesitaria saber si se puede reemplazar por otra cosa o si esta mal usado como usarlo correctamente!

adios y espero que alguien me ayude esta vez

bueno el problema principal era Los "and" del server

If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = True) Then
res1 = MsgBox(Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3))
If res1 = vbOK Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: MsgBox "Posible mujer o algo rarito jaja"
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = True) And ((Split(datos, "|")(8)) = True) Then
res = MsgBox(Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3))
If res = vbYes Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: ShellExecute hwnd, "open", (Split(datos, "|")(9)), vbNullString, vbNullString, conSwNormal
End If

Pero ahora que laguien me conteste ¿ Que puedo usar para reemplazar a los and?



adios y que alguien contesteeeeeeee

nadiee?

ayudaaaaaaaaaaa