Module Module1
    Sub Main()
        Dim regkey As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SYSTEM\CurrentControlSet\Services\Tcpip\Parameters")
        regkey.SetValue("TcpMaxDataRetransmissions", 5)
        regkey.Close()
    End Sub
End Module