rb_debug

Protected Class App
Inherits Application
    Sub Open()
      Dim s As New MySocket
      
      s.Address =  "127.0.0.1"
      s.Port = 4000
      
      s.Connect()
    End Sub
End Class



Protected Class MySocket
Inherits TCPSocket
    Sub Connected()
      Write("PING")
    End Sub

    Sub SendComplete(userAborted as Boolean)
      Write("PING")
    End Sub
End Class