VB Code:
  1. Private Function MyAccept(ByVal s As Long, ByRef Addr As sockaddr_in, ByRef addrlen As Long) As Long)

  2.      Dim out As Long

  3.      out = accept(s, Addr, addrlen)

  4.      MyAccept = out

  5. End Function
It errors without an error description. The value of it is -1 so obviously it's not working properly. My thought is it's erroring because at the time there isn't an incoming connection to accept, correct? If so, how can this be fixed? by using "listen"? or..?