ize.Text), 1, 65536)
        txtPort.Text = MinMax(Val(txtPort.Text), 0, 65535)
        
        Call Reg_Write(HKEY_CURRENT_USER, sRegKey & "\Echo", "DataSize", txtDataSize.Text, REG_DWORD)
        Call Reg_Write(HKEY_CURRENT_USER, sRegKey & "\Echo", "HostIP", txtHostIP.Text, REG_SZ)
        Call Reg_Write(HKEY_CURRENT_USER, sRegKey & "\Echo", "Method", cboMethod.ListIndex, REG_DWORD)
        Call Reg_Write(HKEY_CURRENT_USER, sRegKey & "\Echo", "Port", txtPort.Text, REG_DWORD)
        
        If wsEcho_Socket <> 0 Then
            If shutdown(wsEcho_Socket, SD_BOTH) = SOCKET_ERROR Then Call Error_API(Err.LastDllError, sLocation & "\Form_Unload", "shutdown")
            Call Socket_Close(wsEcho_Socket)
            
            wsEcho_Data = vbNullString
            
            Dim sockaddr_in As sockaddr_in
            wsEcho_sockaddr = sockaddr_in
        End If
        
        If SetWindowLong(frmEcho.hwnd, GWL_WNDPROC, wsEcho_OldProc) = 0 Then Call Error_API(Err.LastDllError, sLocation & "\Form_Unload", "SetWindowLong")
        
    Exit Sub
    VB_Error:
    Call Error_VB(Err, sLocation & "\Form_Unload")
    Resume Next
    End Sub