Create A Custom FTP Server For An Application?

As i am trying to create a custom FTP server for an application i've been reading up on this for a while. One part of the problem is obviously the multi threading issue.Now i know that the synclock command will lock an object to the thread that requested it's lock, however in an example on the internet i found the following construction and i am wondering why he would do this.

Code:Private Sub ProcessClient( NewClient As Client )Call SendMessage( "530 Acces Denied", NewClient.ControlSocket) more codeEnd Sub Private Sub SendMessage(ByVal message As String, ByVal ToSocket as Socket)Dim CurrentThread As Thread = Thread.CurrentThread SyncLock CurrentThreadToSocket.Send(Message)End SyncLockEnd Sub Now ProcessClient is a thread that is trying to do some stuff with a newly connected client and SendMessage is just a sub in the same class as where the thread was created. Now normally one would synclock a "syncobject" however here he calls a sub and then from that sub he synclocks to the thread that called it. I wonder what the use of that is and why he does it this way?

I have removed the synclock statement and as I expected it functions exactle the same as it does with it. I tested it with multiple users at the same time trying to connect to it.