While (True)
            'Wait for Client Command on this socket
            Dim bFlagNotToExitFromCommand As Boolean = False
            Dim SMTPCommand As String
            Dim byteArray(2048) As Byte
            Try
 
                Dim iBytes As Integer = ServerSocketForClient.Receive( _
                  byteArray, byteArray.Length, 0)
                Dim MessageFromClient As String = Encoding.ASCII.GetString( _
                byteArray)
                If iBytes > 0 Then
                    SMTPCommand = ParseCommandFromMessage(MessageFromClient, _
                      SMTPLastCommand)
                Else
                    SMTPCommand = SMTPQUIT
                End If
                'There may be more than one file to be tranfered in the same 
                ' connection
                'this will lead to close the file and open again for next file
                If SMTPCommand = SMTPRSET Then
                    If SMTPLastCommand = SMTPREQACCP Then
                        If Not pFile Is Nothing Then
                            pFileWriter.Close()
                            pFile.Close()
                            'open new file
                            pFile = CreateFileForSMTPClient(SMTPSpool & "\" & _
                              CStr(ClientCount & r.Next(1, 100)))
                            pFileWriter = New StreamWriter(pFile)
                        End If
                    End If
                Else
                    If SMTPCommand = SMTPMAIL And pFile Is Nothing Then
                        pFile = CreateFileForSMTPClient(SMTPSpool & "\" & CStr( _
                          ClientCount & r.Next(1, 100)))
                        pFileWriter = New StreamWriter(pFile)
                    End If
                    bFlagNotToExitFromCommand = SMTPHandleCommand(SMTPCommand, _
                      MessageFromClient, ServerSocketForClient, pFileWriter)
                End If
            Catch e As NotSupportedException
                Console.WriteLine(e.ToString)
            End Try
            If Not bFlagNotToExitFromCommand Then Exit While
        End While

                Dim iBytes As Integer = ServerSocketForClient.Receive( _
                  byteArray, byteArray.Length, 0)